Информатика
Информатика, 21.10.2019 00:03, Andreyко

Вопрос/Задача:

Разаработайте програму на языке паскаль которая запарашивает три строковые величины-взаимосвязаные прилагательное, существительное и глагол, а затем печатает все варианты фраз с использованием введеных слов. пример входных данных зелёные листья распускаются пример выходных данных зелёные листья распускаются зелёные распускаются листья листья зелёные распускаются листья распускаются зелёные распускаются зелёные листья распускаются листья зелёные

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

Ответ
Ответ разместил: Гость

uses crt; var a,b,c: integer; beginclrscr; readln(a,b,c); if (a> b) and (a> c) then writeln('max chislo = ',a); if (b> a) and (b> c) then writeln('max chislo = ',b); if (c> b) and (c> a) then writeln('max chislo = ',c); readln; end.

Ответ
Ответ разместил: Гость

const n=5; var a: array [1..n] of real; i: integer; begin for i: =1 to n do begin readln(a[i]);                         if i mod 2=1 then a[i]: =sqr(i);                         writeln(i,' элемент массива равен : ',a[i]);                         end; end.

 

   

Ответ
Ответ разместил: Гость

это просто название месяцев, а вот май, август, октябрь, декабрь в этих месяцах по 31 дню, если в учитесь по босовой , то ответить нужно именно так

Ответ
Ответ разместил: kiryaegorov03
Program qq; var a,b,c: string; beginwriteln('введите ваш пример'); readln(a); readln(b); readln(c); writeln('зелёные листья распускаются'); writeln('зелёные распускаются листья '); writeln('зелёные распускаются листья '); writeln('листья распускаются зелёные'); writeln('распускаются зелёные листья '); writeln('распускаются листья зелёные'); end.{на pascal abc проверил работает}

Похожие вопросы

Вопросов на сайте: