Подсчитать сумму чисел от 1 до 10.
program prim61;
uses crt;
var i,s:integer;
begin
clrscr;
i:=1;
s:=0;
while i<11 do
begin
s:=s+i;
i:=i+1;
writeln('s=',s);
end;
writeln('sum=',s);
end.
Найти все двузначные числа, кратные 7
Отгадай число от 1 до 100
В этой программе используются новый оператор.
Это
randomize начальная установка специальной процедуры -
генератора случайных чисел
random(100),
выдающей случайные числа от 0 до 99.
Какие изменения надо сделать в программе,
чтобы компьютер предлагал только
двузначные числа?
