Дана программа: program primer; var a,result : real; begin writeln( введите значения переменной a ); - id1050084720220520 от Раяна771155 20.05.2022 04:47

Question

Информатика: Дана программа: program primer; var a,result : real; begin writeln( введите значения переменной a ); write( a= ); readln(a); result : = sqr((7+a)*3); writeln ( sqr((7+a)*3) , result: 8: 0); readln; end. запусти паскаль, введи данную программу, получи результат, если a=4. ответ: у меня нет паскаля, да и не та система, чтобы установить его, а онлайн не работают, можно

Раяна771155 · Accepted Answer

Program z3;
var A:array[1..3] of string;
var B:array[1..3] of string;
i,k:byte;
begin
writeln('Ввод названий газет: ');
for i:=1 to 3 do begin write('[',i,']');readln(A[i]); end;
writeln('Ввод подписчиков: ');
for i:=1 to 3 do begin write('[',i,']'); readln(B[i]); end;

for i:=1 to 3 do begin
if (A[i]='правда') and (B[i]= 'петров') then begin k:=i;
writeln('Да, Петров выписывает газету ',A[i]); end;
end;
end.

Ввод названий газет:
[1]Книга
[2]Правда
[3]Вера
Ввод подписчиков:
[1]Библиотекарь
[2]Петров
[3]Гундяев
Да, Петров выписывает газету Правда

MOGZ ответил