Скласти блок-схему алгоритму для визначення суми шести чисел, перше з яких 2, а кожне наступне на 3 - id1239490220220726 от LalkaZEKA 26.07.2022 08:18

Question

Информатика: Скласти блок-схему алгоритму для визначення суми шести чисел, перше з яких 2, а кожне наступне на 3 більше від попереднього та виконати алгоритм (початкові команди х:=2, s:=0 (це сума), і:= 1 (це лічильник)). Звертаю увагу на операції присвоювання :=, множення *, ділення /.

LalkaZEKA · Accepted Answer

Uses crt;
var
n,a,b,c,m:integer;
begin
clrscr;
write('Vvesti 3-x znachnoe chislo ');
readln(n);
c:=n mod 10;
a:=n div 100;
n:=n div 10;
b:=n mod 10;
writeln('cifri chisla ',a:3,b:3,c:3);
write('vvesti cifru ');
readln(m);
if (m=a) or (m=b) or (m=c) then writeln('YES') else writeln('NO');
writeln('end programm ');
readkey;
end.
Program pr1;
uses crt;
var
a,r:real;
begin
clrscr;
write('Vvesti storonu kvadrata A ');
readln(a);
write('Vvesti radius kruga R ');
readln(r);
if 2*r =a then writeln('krug vpisan v kvadrat') else
if abs(a*sqrt(2) - 2*r)<=0.01 then writeln('kvadrat vpisan v krug')
else writeln(' ne vpisivajutsya');
writeln('end programm ');
readkey;
end.

MOGZ ответил