Lập trình đơn giản

#include <stdio.h>
#include <stdlib.h>

int main() {
    char str[100]; 

    printf("Nhập vào một số bất kì: "); 
    gets(str); 

    int num = atoi(str); 

    printf("Số bạn vừa nhập là: %d", num);

    return 0;

var a,s:real;

begin

write('a = ');readln(a);

s:=a*a*a+15;

write('Ket qua la ',s:10:2);

readln

end.

program InChuCai;
var ch: char;
begin
  for ch := 'a' to 'z' do
    writeln(ch);
  readln;
end.

Program HOC24;

var a,b: real;

begin

write('Nhap diem cua Manh: '); readln(a);

write('Nhap diem cua Thanh: '); readln(b);

if a>b then write('Diem cua ban Manh cao hon ban Thanh');

if a<b then write('Diem cua ban Thanh cao hon ban Manh');

if a=b then write('Diem cua ban Manh bang ban Thanh');

readln

end.

uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cua day so la: ',t);
readln;
end.

Sửa: s:=1; for i:=1 to 8 do s:=s+i; writeln('s=',s);

-> Đoạn chương trình trên: vòng lặp là tính tổng từ 1 đến 8.

=> S= 1+1+2+3+4+5+6+7+8 = 37

Vậy S = 37

a) sai giá trị

→for i:= 1 to 4 do writeln ('A');

b) thiếu dấu hai chấm

→for i:= 1 to 10 do writeln ('A');

c) thiếu dấu =, sai giá trị

for i:= 1 to 10 do writeln ('A');

program TinhTong;
var  n, s,i: integer;
begin
  write('Nhap vao n: ');
  readln(n);

  s := 0;
  for i := 5 to n step 5 do
  begin
    s := s + i;
  end; writeln('Tong cua day so la: ',s);
  readln;
end.

nói chuyện thấy ko có văn minh nhan bạn