Program Bid;
Uses crt;
var a,b,max:integer;
begin
write(' Введите целое число a=');
readln(a);
write(' Введите целое число b=');
readln(b);
if a>=b then max:=a
else max:=b;
writeln('Max=',max);
end.
Задание 2:Program Text;
var x:integer;
begin
write('Введите цифру 1 или любую :');
readln(x);
if x=1 then write(' В а с я')
else write(' П е т я');
end.
Задание 3:Program Text;
var x:integer;
begin
write('Введите цифру 1, 2 или любую :');
readln(x);
if x=1 then write(' В а с я')
else if x=2 then write(' П е т я')
else write('ERROR');
end.
Задание 4:Program MaxFrom3;
begin
writeln('Введите 3 числа: ');
var (a, b, c) := ReadInteger3;
write('Наибольшее число: ', Max(a,b,c));
end.
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('подтянись!')
