Регистрация
en228
16.04.2022 02:43
Информатика
Есть ответ 👍

Написать программу н языке паскаль присваивания переменной y в значении наибольших a, b, c. вот таком виде program var begin и так далее

217
449
Посмотреть ответы 2

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

FalconGamer
FalconGamer
4,6(43 оценок)
// pascalabc.net 3.1, сборка 1200 от 13.03.2016 var   a,b,c,y: real; begin   write('введите через пробел три числа: '); read(a,b,c);   if a> b then y: =a else y: =b;   if c> y then y: =c;   writeln('y=',y) end. тестовое решение: введите через пробел три числа: 6.18 -5 2.11 y=6.18
Neuch18
Neuch18
4,8(30 оценок)
Var n, m: integer; s,d: string; procedure fd (var z: string; t: integer); var i,k: integer; begin for i : = 1 to t do begin if z[i] = 'в' then k: = k +1; end; writeln(k); end; begin d: ='написать программу подсчета букв "в" в меньшей по длине величина прпрпрп ролроллолшл нг'; s: ='в случае равенства длин напечатать значение количества букв "в" в каждой строковой величине'; n: =length(s); m: =length(d); if n = m then begin fd(d,m); fd(s,n); end else if n < m then fd(s,n) else fd(d,m); end.

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