Опубликовано 6 лет назад по предмету Информатика от Ulmir123

Помогите решить задачи на языке программирования ПАСКАЛЬ. Номера заданий:6,7,8,9,10

Ответ

Ответ дан SanGreen74

Задача №6

var x,y,max:integer;
begin
read(x);
max:=x;
if x=0 then exit;
repeat
read(y);
if y>max then max:=y;
until y=0;
writeln(max);
end.

Задача №7

var x,y,max, min:integer;
begin
read(x);
max:=x;
min:=x;
if x=0 then exit;
repeat
read(y);
if y>max then max:=y;
if y<min then min:=y;
until y=0;
writeln(max-min);
end.

Задача №8

var x,k,z:integer;
begin
k:=0;
z:=0;
repeat
read(x);
if (x mod 2 = 0) and (x<>0) then k:=k+1;
if (x mod 2 = 0) and (x<>0) then z:=z+1;
until x=0;
if k>z then writeln('Четных больше');
if k<z then writeln('Нечетных больше');
if k=z then writeln('Четных и нечетных поровну');
end.

Задача №9

var x,y,max,k1,k2:integer;
begin
read(x);
max:=x;
k1:=1;
k2:=0;
if x=0 then exit;
repeat
read(y);
if y>max then k1:=k1+1;
k2:=k2+1;
until y=0;
if k1=k2 then writeln('Верно') else writeln('Неверно');
end.

Задача №10

var y,k1,k2:integer;
begin
k1:=1;
k2:=0;
repeat
read(y);
if (y>0) and (y>20) and (y<100) then k1:=k1+1;
k2:=k2+1;
until y=0;
if k1=k2 then writeln('Верно') else writeln('Неверно');
end.

Самые новые вопросы

Математика - 6 лет назад

Решите уравнения: а) 15 4 ∕19 + x + 3 17∕19 = 21 2∕19; б) 6,7x - 5,21 = 9,54

Информатика - 6 лет назад

Помогите решить задачи на паскаль.1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива.2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива.3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива.4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.

География - 6 лет назад

Почему япония - лидер по выплавке стали?

Математика - 6 лет назад

Чему равно: 1*(умножить)х? 0*х?

Русский язык - 6 лет назад

В каком из предложений пропущена одна (только одна!) запятая?1.она снова умолкла, точно некий внутренний голос приказал ей замолчать и посмотрела в зал. 2.и он понял: вот что неожиданно пришло к нему, и теперь останется с ним, и уже никогда его не покинет. 3.и оба мы немножко удовлетворим свое любопытство.4.впрочем, он и сам только еле передвигал ноги, а тело его совсем застыло и было холодное, как камень. 5.по небу потянулись облака, и луна померкла.