Написать программу Паскаль. Дан символ и код. Найти квадрат суммы кодов этих симв
Написать программу Паскаль.
Дан символ и код. Найти квадрат суммы кодов этих символов.
Гость
Ответ(ы) на вопрос:
Гость Может быть, имеется в виду вот это:
var c:char; k,s:integer;
begin
write('Символ = '); readln(c);
write('Код = '); readln(k);
s:=sqr(ord(c)+k);
writeln('Квадрат суммы = ',s);
end.
Пример:
Символ = A
Код = 70
Квадрат суммы = 18225
Не нашли ответ?
Похожие вопросы