Pascal:
1.
var a,b:Integer;
x:Double;
begin
writeln('Введите a, b: ');
readln(a,b);
x:=a+b;
writeln(a,'+',b,'=',x);
x:=a*b;
writeln(a,'*',b,'=',x);
end.
2.
var a,b:Integer;
begin
writeln('Введите оценки за две КР: ');
readln(a,b);
if (a+b)>= 8 then writeln('Молодец!')
else writeln('Подтянись!')
end.
Python:
1.
a, b = int(input('Введите a')), int(input('Введите b'))
x = a+b
print(str(a) + '+' + str(b) + '=' + str(x))
x = a*b
print(str(a) + '*' + str(b) + '=' + str(x))
2.
a, b = int(input('Введите первую оценку')), int(input('Введите вторую оценку'))
if a+b >= 8:
print('молодец!')
else:
print('подтянись!')
Pascal:
1.
var a,b:Integer;
x:Double;
begin
writeln('Введите a, b: ');
readln(a,b);
x:=a+b;
writeln(a,'+',b,'=',x);
x:=a*b;
writeln(a,'*',b,'=',x);
end.
2.
var a,b:Integer;
begin
writeln('Введите оценки за две КР: ');
readln(a,b);
if (a+b)>= 8 then writeln('Молодец!')
else writeln('Подтянись!')
end.
Python:
1.
a, b = int(input('Введите a')), int(input('Введите b'))
x = a+b
print(str(a) + '+' + str(b) + '=' + str(x))
x = a*b
print(str(a) + '*' + str(b) + '=' + str(x))
2.
a, b = int(input('Введите первую оценку')), int(input('Введите вторую оценку'))
if a+b >= 8:
print('молодец!')
else:
print('подтянись!')
program raf105;
var a,b,c,counter,i: integer;
begin
for i:=100 to 150 do
begin
a:= i div 100;
b:= (i div 10) mod 10;
c:= i mod 10;
if a+b+c=5
then counter:= counter + 1;
end;
writeln('Количество чисел от 100 до 150, сумма цифр которых равна пяти: ',counter);
end.
Язык PascalABC