М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
астра1603
астра1603
24.09.2020 00:47 •  Информатика

Составьте программу для решения следующей . введите с клавиатуры три числа: а, в, с. если а> в> c> 0, то замените все числа их квадратами и выведите результаты на экран. если они отрицательны и не равны между собой, то каждое число замените наибольшим из них и выведите результаты. иначе, найдите и выведите их сумму.

👇
Ответ:
Lerawsfghdsx
Lerawsfghdsx
24.09.2020
Var a,b,c,max:real;
begin
write('Введите a, b и c: ');
readln(a,b,c);
if (a>b) and (b>c) then
  begin
  a:=a*a;
  b:=b*b;
  c:=c*c;
  writeln('a=',a,', b=',b,', c=',c);
  end
  else if (a<0) and (b<0) and (c<0) and (a<>b) and (a<>c) and (b<>c) then
    begin
    max:=a;
    if b>max then max:=b;
    if c>max then max:=c;
    a:=max;
    b:=max;
    c:=max;
    writeln('a=',a,', b=',b,', c=',c);
    end
    else writeln(a+b+c);
end.
4,6(4 оценок)
Открыть все ответы
Ответ:
RuslanVil
RuslanVil
24.09.2020
Program z3;
const n=3;
var A:array[1..n] of string;
var B:array[1..n] of string;
i,k:byte;

begin
writeln('Ввод названий газет:');
for i:=1 to n do
 begin write('[',i,'] '); readln(A[i]);end;
writeln('Ввод фамилий подписчиков:');
for i:=1 to n do
 begin write('[',i,'] '); readln(B[i]);end;
k:=0;
for i:=1 to n do
 if (A[i]='Правда') and (B[i]='Петров') then k:=i;
if k<>0 then writeln('Да, Петров выписывает Правду.')
        else writeln('Петров не выписывает Правду.');
end.

Пример:
Ввод названий газет:
[1] Правда
[2] Мир
[3] Атеист
Ввод фамилий подписчиков:
[1] Петров
[2] Дружаев
[3] Базаров
Да, Петров выписывает Правду.
4,6(55 оценок)
Ответ:
mayer3
mayer3
24.09.2020
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]Гундяев
Да, Петров выписывает газету Правда
4,8(99 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ