P ASCAL ABC Разветвляющиеся вычислительные процессы

З АДАНИЕ 1 Ввести два целых числа и вывести на экран наибольшее из них. начало max:= a; ввод a,b вывод max a > b? max:= b; конец да нет

Р ЕШЕНИЕ ЗАДАНИЯ 1 program qq; var a, b, max: integer; begin writeln('Введите два целых числа'); read ( a, b ); if a > b then begin max:=a; end else begin max:=b; end; writeln ('Наибольшее число ', max); end.

З АДАНИЕ 2 Даны 2 целых числа а и b. Найти сумму этих чисел, если а - четное, и произведение в противном случае.

Р ЕШЕНИЕ ЗАДАНИЯ 2 program pkp; var a,b,s,p:integer; begin writeln('Введите a,b'); read(a,b); if a mod 2=0 then begin s:=a+b; writeln('a - четное, поэтому S=a+b=',s) end else begin p:=a*b; writeln('a - нечетное, поэтому P=a*b=',p) end end.

З АДАНИЕ 3 В кафе продают лимонад по x руб. и мороженое по y руб. Составьте программу в системе Pascal ABC, которая сообщает "возьмите сдачу", "доплатите еще" или "спасибо за покупку" при оплате покупателем за m лимонадов и n мороженых денег в размере S руб.

Р ЕШЕНИЕ ЗАДАНИЯ 3 program pp; var x,y,m,n,s,k:integer; begin writeln('Введите x,y,m,n,s'); read(x,y,m,n,s); z:=x*m+y*n; if s=z then writeln('Спасибо за покупку') else if S>Z then begin k:=S-Z; writeln('Возьмите сдачу ',k) end else begin k:=Z-S; writeln('Доплатите ещё ',k) end end.

З АДАНИЕ 4 Вычислить значение S :

Р ЕШЕНИЕ ЗАДАНИЯ 4 program ll; var x,s:integer; begin writeln('Введите x'); read(x); if x

10 Задание 5. Алгоритм начало ввод x 'подходит' да нет x >= 25 и x

Р ЕШЕНИЕ ЗАДАНИЯ 5 program qq; var x: integer; begin writeln('Введите возраст'); read ( x ); if (x >= 25) and (x

З АДАНИЕ 6 По координатам точки М(x, y) (х, y 0) определить номер квадранта (четверти).

Р ЕШЕНИЕ ЗАДАНИЯ 6 Var x,y:integer; Begin Writeln('Введите координаты точки х, y 0 '); Read(x,y); If (x>0) and (y>0) then writeln(' I квадрант '); If (x 0) then writeln(' II квадрант '); If (x

Д ОМАШНЕЕ ЗАДАНИЕ 1. Ввести три числа и найти наибольшее из них. Пример: Введите три числа: Наибольшее число Даны стороны треугольника. Определить вид треугольника (равнобедренный, равносторонний, разносторонний) с такими сторонами.