Регистрация
tanyasidorcova
09.06.2021 13:02
Информатика
Есть ответ 👍

Паскаль! !
с циклом while (без массива)
1. известен возраст всех учеников класса. определить самого старшего, если признак окончания ввода - 0.

2.дана последовательность целых чисел, признак окончания которой - 0. найти сумму положительных элементов, стоящих на нечетных местах. (что значит "стоящих на нечетных местах"

227
378
Посмотреть ответы 2

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

dashakomp2005
dashakomp2005
4,4(81 оценок)

1)var a,b: integer;

begin

a: =-1;

while a< > 0 do

begin

read(a);

if a> b then b : =a;

end;

write('возраст самого старшего ',b);

end.

2)

var a,b,c: integer;

begin

a: =-1;

while a< > 0 do

begin

read(a);

c: =c+1;

if (a> 0)and(c mod 2=1) then b : =a;

end;

write('сумма положительных элементов , стоящих на нечетных местах равна ',b);

end.

умныйнет1
умныйнет1
4,5(74 оценок)
Можно переписать так: х≥ 6 + (х< 5)*(x≥4) = 0       1) x=7   не подходит, так как   x≥6 =1         2) x=6 не походит, так как х≥6=1         3) х< 5     не подходит , так как  (x< 5)*(x> =4) =1 4)   х=4   х≥6 =0   и   (х< 5)*(x≥4) =0   -   подходит         ответ 4) 4 

Популярно: Информатика