Безотлагательно! Даю 50 баллов!!!Написать программу в Паскале, 8 классДано число, если

Question

Безотлагательно! Даю 50 баллов!!!Написать программу в Паскале, 8 классДано число, если

Безотлагательно! Даю 50 баллов!!!

Написать программку в Паскале, 8 класс

Дано число, если оно коротко 5, то отыскать площадь круга с радиусом одинаковым 5, если число четное, то отыскать площадь квадрата с этим числом

Задать свой вопрос

Вячеслав Амилинский
Информатика
2019-05-25 14:40:48
0
2

2 ответа

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Я гуманитарий, потому не разговариваете что я тупая и т.п

Помогите пожалуйста !! Сейчас впр 6 класс Вопрос: три из изображенных

как сделать ксерокопию на МФУ?по информатике задали!

Помогите пожалуйста с русским очень безотлагательно))) оба номера пажалуста очень безотлагательно

напишите ответы безотлагательно!

Як розмри Велико Китайсько стни? Чи врятувала вона крану вд ворогв?

После строительства дома осталось некоторое количество плиток. Их можно использовать для

Помогите пожалуйста безотлагательно

Извещение о Аркадие Петровиче Голикове. коротко

(x-3/8x)=9 4/5 Помогите :3

Есения · Answer 1 · 2019-05-25 14:47:14+3:00

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger('Введите число');
if n mod 5=0 then Writeln(Pi*n*n)
else
if n.IsEven then Writeln(n*n)
end.

Вадим Болдушкин · Answer 2 · 2019-05-25 14:48:57+3:00

Var a: integer;
const r = 5; pi = 3.1415;
begin
writeln('Введите число.');
Readln (a);
if a mod 5 = 0 then
writeln ('Площадь круга равна: ', pi*sqr (r))
else if a mod 2 = 0 then
writeln ('Площадь квадрата одинакова: ', sqr (a));
end.

О проекте

Безотлагательно! Даю 50 баллов!!!Написать программу в Паскале, 8 классДано число, если

Добро пожаловать!