Var sum,i : Integer;
Begin
sum:=0;
For i:=1 to 10 do sum:=sum+i;
Writeln(sum);
end.
Но проще всего это считать без циклов - одной строкой:
Begin
Writeln((10+1)*10 div 2);
end.
Var x, a, b, c, s: integer;
begin
write('Введите число: '); readln(x);
a := x div 100;
b := (x div 10) mod 10;
c := x mod 10;
s := a + b + c;
writeln('Число принадлежит ', a, ' сотне');
if(s mod 2 = 0) then writeln('Сумма цифр четная')
else writeln('Сумма цифр нечетная');
end.
a - сотни
b - десятки
с - единицы
Надеюсь я правильно тебя понял.
Отпечатками
или же отпечатками лап
Известно несколько способов решения данной задачи. Один из вариантов: МУХА-МУРА-ТУРА-ТАРА-ПАРА-ПАРК-ПАУК-ПАУТ-ПЛУТ-ПЛОТ-СЛОТ-СЛОН
А)
var a,b:integer;
begin
writeln ('Введите два целых числа:');
read (a,b);
if a > b then begin
writeln ('Наибольшее число ',a);
writeln ('Наименьшее число ',b);
end
else begin
writeln ('Наибольшее число ',b);
writeln ('Наименьшее число ',a);
end;
end.
В)
var a,b,c,d,max:integer;
begin
writeln ('Введите четыре целых числа:');
read (a,b,c,d);
max:=a;
if b > max then begin
max:=b;
end;
if c > max then begin
max:=c;
end;
if d > max then begin
max:=d;
end;
writeln ('Максимальное число ',max);
end.