< >

Написать программу нахождения квадрата числа

Ответы

Ответ дал: bolela
0

var a,res:integer;

begin

writeln('Введите число');

readln(a);

res:=sqr(a);

writeln('Квадрат числа,'a', равен,'res',');

readln;

end.

Похожие вопросы
Другие предметы
2 года назад
Перевести текст на НЕМЕЦКИЙ язык !!!  Мои летние каникулы были классными.  В Июне я ходил в школьный спортивный лагерь . В лагере мы тренировались , но мы так же ездили на пруд, ходили в кино . В
Русский язык
2 года назад
какие из этих слов мягкие согласные звуки  чаща,чашка,лыжи,жук,зелень,осень,крик,желудь,земля,ученик.
Математика
7 лет назад
помоги. буду благодарна
Математика
7 лет назад
Решите уравнение 23-3(b+1)+5(6b-7)-7(3b-1)=0
Математика
10 лет назад
можете по дйствиям -6.4 * 2.05 + 0.72 * 5.5 - 23.712 : (17.5 - 28.9)
История
10 лет назад
Подтвердите с помощью исторических фактов следующие положения из выступления М.С. Горбачева 25 декабря 1996года: "...утверждается равенство всех реформ собственности...начали набирать силу
Математика
10 лет назад
стая пингвинов может съесть 200 кг криля за трое суток. за какое время стая, вкоторой пингвинов в 6 раз больше, съест 300 кг криля?
Математика
10 лет назад
реши уровнения x-640=921:3     x:9=2007:9