1)
Program n1;
var i: integer;
sum: real;
begin
sum:=0;
for i:=102 to 1000 do if (i mod 3=0) then sum:=sum+i;
writeln('Сумма: ',sum);
end.
2)
Program n2;
var i: integer;
begin
for i:=10 to 99 do if (i mod 2<>0)then writeln(i);
end.
Не совсем понимаю,что тебе нужно,но думаю,тебе помогут вот эти команды:
использовать Робот
алг Квадрат
нач
закрасить
вправо
закрасить
вправо
закрасить
вниз
закрасить
вниз
закрасить
влево
закрасить
влево
закрасить
вверх
закрасить
кон
INSERT INTO T2 (Id, Data2, Ciffri2) SELECT Id, SUM (Cifri), Data FROM T1 GROUP BY Data
;
Program CountA;
Uses Crt;
var a,n,x,i:integer;
begin
clrscr; // очищаем экран
write('Введите число n:');
readln(n); // ввод данных
write('Введите цифру а: ');
readln(a); // ввод данных
x:=1; i:=0; i-счётчик цифр а
while (n<>0) do // Пока n не стало равным нулю
begin
x:=n mod 10; // в x остаток от деления на 10 т.е -отдельная цифра числа
if (a=x) then i:=i+1; если есть совпадение то i увеличиваем на 1
n:=n div 10; переходим к следующему разряду числа (сотни десятки единицы)
end;
writeln('Цифра ',а,' Встречается в данном числе-', i, ' раз(а)');
readkey; // Пауза до нажатия на любую клавишу
end.
Var
hh, mm, hp, mp: integer;
begin
readln(hh, mm, hp, mp);
hh := hp * 60 + hh * 60 + mm + mp;
writeln(hh div 60 mod 24, ':', hh mod 60);
end.