Другие вопросы по теме Информатика
vmailiki14
07.03.2021 12:06
даниил851
15.09.2020 18:50
ЕкатеринаВеликая28
25.11.2020 15:21
tytyuuh88
27.04.2020 14:25
kryp4
27.04.2020 14:24
Lane9ig
08.03.2019 07:30
erenyeger2398
08.03.2019 07:30
pashamironov20
28.05.2019 21:00
gggggerrrr
28.05.2019 21:00
Популярные вопросы
- Na risunke dlina otrezka ac sostovlyayet 25% dlini otrezka cb. naydite...
3 - Укажите фразеологизм, который представляет собой часть выражения иисуса...
2 - Опишите кратко основные виды трудовой деятельности словян...
3 - Сравните значение выражений -5,6^16 и (-5,6)^16...
3 - Жанр произведения л н толстого два брата...
1 - Решите уравнения (2x+3)(2x+5)=0 (5-x)(3x+2)=0 (2x-3)(x^2+3x+2)=0 (x^2+1)(x^2+5x+6)=0...
2 - Что вы знаете о людях с которыми л.н.толстой общался дружил?...
1 - Сөйлемдерді толықтырындар: аяз атаның атаулары:...
1 - 70 . напишите мне по время: 2: 00,2: 05,2: 10,2: 15,2: 20,2: 25,2: 30,2:...
2 - Найти все орфограммы! : ( мы с ним постоянно были в дружбе, хотя в иных...
1
Program Perimeter;
Var A, P, S : Integer;
begin
writeln('Программа вычисления периметра квадрата');
write('Введите сторону ');
readln(A);
P := 4 * A;
writeln('Периметр квадрата равен ', P)
S := A * A;
writeln('Площадь квадрата равна ', S)
end.