Язык Паскаля. Задание на фото.
Ответы
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('подтянись!')
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Опишіть структуру програми на мові програмування. Люба мова Коротко
Автор: iqtoy2010
Добрый вечер Снова информатика,
Автор: DodokhodzhaevVladimirovich
Нужно решить задачу и составить таблицу по ней
Автор: titancore
P.s.в таблице опечатка и должно быть 2 столбика- i и s
Автор: Melsan19914239
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('подтянись!')