Решите блок-схему и Паскаль. 1.Даны числа х,у.Если произведение чисел >чем их сумма, то увеличить первое число в 15раз, в противном случае второе число увеличить в 20раз. Вывести полученные числа
Имя можно вставить любое, вывод изменить по своему усмотрению, если числа натуральные(1,2,3,20...), то советую заменить real на integer во второй строке, если могут встречаться десятичные (полтора), то оставьте так.
Var x1,y1,x2,y2,v1,v2:real; begin writeln("введите количество метров пробегания жирафа"); read(y1); writeln("введите, за сколько секунд он должен пробежать"); read(x1); writeln("введите количество метров пробегания зайца"); read(y2); writeln("введите, за сколько секунд он должен пробежать"); read(x2); v1:=y1/x1; v2:=y2/x2; if v1>v2 then begin writeln("жираф чемпион"); end else if v1<v2 then begin writeln("заяц чемпион"); end else begin writeln("победила дружба); end; end;
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) const m = 10;
var t: array[1..m] of integer; i, n, nm, sm: integer;
begin //Заполняем массив сл.числами и подсчитываем //количество элементов и среднее арифметическое //согласно условию задачи for i := 1 to m do begin t[i] := random(-20, 20);write(t[i]:4); if (i > 1) and (i <= m) then if t[i] > t[i - 1] then n := n + 1 else if t[i] < t[i - 1] then begin sm := sm + t[i];nm := nm + 1; end; end; writeln; writeln('число элементов больших предыдущего = ', n); writeln('ср. арифметическое элементов меньших предыдущего = ', sm / nm);
program z1;
var x,y:real;
begin
read(x,y);
if (x*y) > (x+y) then x:=x*15 else y:=y*20;
writeln(x,' ',y);
end.
Имя можно вставить любое, вывод изменить по своему усмотрению, если числа натуральные(1,2,3,20...), то советую заменить real на integer во второй строке, если могут встречаться десятичные (полтора), то оставьте так.