:практическая работа №3. ветвления уровень a. напишите программу, которая получает с клавиатуры два целых числа и находит наибольшее и наименьшее из них. пример: введите два числа: 1 5 наименьшее число 1 наибольшее число 5 уровень b. напишите программу, которая получает с клавиатуры четыре целых числа и находит наибольшее из них. пример: введите четыре числа: 1 2 5 3 наибольшее число 5 уровень c. напишите программу, которая получает с клавиатуры возрасты трёх человек (антона, бориса и виктора) и определяет, кто из них старше. пример: возраст антона: 15 возраст бориса: 17 возраст виктора: 16 ответ: борис старше всех. пример: возраст антона: 17 возраст бориса: 17 возраст виктора: 16 ответ: антон и борис старше виктора. на языке паскаль.

Всего ответов: 3

Ответы

Ответ разместил: vadkirkov

Program p1; var a,b: integer; begin writeln ('введите 2 числа'); readln (a,b); if a=b then writeln ('числа одинаковые') else if a> b then begin writeln ('наибольшее число ',a); writeln ('наименьшее число ',b); end else begin writeln ('наибольшее число ',b); writeln ('наиментшее число 10 ',a); end; end. program p2; var a,b,c,d: integer; begin writeln ('введите 4 числа'); readln (a,b,c,d); if a< b then a: =b; if c< d then c: =d; if a< c then a: =c; writeln ('наибольшее число ',a); end. program p3; var a,b,v: integer; begin writeln ('введите возрасты людей: '); write ('антона - '); readln (a); write ('бориса - '); readln (b); write ('виктора - '); readln (v); if (a=b) and (a=v) then writeln ('все люди одного возраста'); if (a=b) and (a> v) then writeln ('антон и борис старше виктора'); if (a=b) and (a< v) then writeln ('виктор старше всех') else if (v> a) and (v> b) then writeln ('виктор старше всех'); if (b=v) and (b> a) then writeln ('борис и виктор старше антона'); if (b=v) and (b< a) then writeln ('антон старше всех') else if (a> v) and (a> b) then writeln ('антон старше всех'); if (a=v) and (a> b) then writeln ('антон и виктор старше бориса'); if (a=v) and (a< b) then writeln ('борис старше всех') else if (b> v) and (b> a) then writeln ('борис старше всех'); end.

Спасибо

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

в древнем египте наряду со значками , обозначавшими целые понятия и слова, существовали и другие знаки, обозначавшие слоги и даже отдельные звуки . потребность в таких знаках очевидна, так как не все можно выразить в виде изображений (прежде всего, это касается личных имен). в этих случаях египтяне превращали слова иероглифы в буквы иероглифы, из которых и составлялись слова, подлежащие передаче на письме согласно их звучанию. например иероглиф «хт» — изображение дома — сделался двухбуквенным иероглифом, обозначающим звук [хт], иероглиф «мн» — изображение шахматной доски — стал иероглифом, обозначающим два звука [мн] и т.д. на первых порах значение фонетических иероглифов было , но со временем их роль все более возрастала, и в последние века существования египетской письменности значение фонетических иероглифов стало господствующим. но к чисто фонографическому письму (то есть такому, где каждый знак обозначает отдельный звук или букву) египтяне так и не перешли . это важное усовершенствование было сделано в письме других народов

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

(3+3·3): 3=4

(3·3+3): 3=4

================

3+3–(3: 3)=5

(3+3): 3+3=5

================

3+3+(3–3)=6

3-3+3+3=6

3·3: 3+3=6

(3+3): 3·3=6

================