1.
var i,k:integer;
begin
for i:=150 to 225 do
if i mod 7=0 then k:=k+1;
write(k)
end.
2.
var a,s:integer;
begin
read(a);
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10
end;
if s mod 10=0 then write('Правда') else write ('Неправда')
end.
Uses crt;
var a,b,c,input:integer;
begin
readln(input);
a := input div 10;
a := a div 10;
b := input div 10;
b:=b mod 10;
c := input mod 10;
if (a + b + c) > 10 then writeln('Больше 10') else writeln('Меньше 10');
end.
1)
а)Ширина-100 Высота- 66
б)заголовок-задание1
в)Размер-3 Цвет-Желтый
Var a,b:real;
begin;
readln(a);
readln(b);
writeln(a+b);
writeln(a-b);
writeln(a*b);
end.