Регистрация
55555555Vgggg
26.09.2022 20:04
Информатика
Есть ответ 👍

Тема «Язык программирования Pascal»
Самостоятельно создаем программу к задаче. Задача: «Найти объем шара» (все параметры вводим с клавиатуры, const нет).
Выполнить программу.

142
373
Посмотреть ответы 1

Ответы на вопрос:

elizaveta66
elizaveta66
4,8(14 оценок)

vars: integer; a,n: longint; beginwrite ('a ='); readln(a);

if (a div 10 = 0) and (odd(a)=false) then s: =a else beginn: =a;   while n div 10 < > 0 do beginn: =a;   if odd(a mod 10)=false then s: =s+a mod 10; a: =a div 10; end;

end; writeln (s); readln; end.

Популярно: Информатика