Паскаль! !
с циклом while (без массива)
1. известен возраст всех учеников класса. определить самого старшего, если признак окончания ввода - 0.
2.дана последовательность целых чисел, признак окончания которой - 0. найти сумму положительных элементов, стоящих на нечетных местах. (что значит "стоящих на нечетных местах"
Аннаlove2017
3
08.08.2019 20:29
0
Другие вопросы по теме Информатика
BOT1111111
25.05.2019 10:10
kate816
19.05.2020 15:51
принцесса212
19.05.2020 15:51
Рома555555
19.05.2020 15:50
milenabalayan
04.08.2019 09:50
катрин0111
30.08.2019 09:20
1941108
23.09.2019 12:19
samudoma2006
09.12.2021 07:15
Популярные вопросы
- Повiсть-казка мiсце для дракона1.Чому Грицько чекав на смерть і вважав себе виродком?2.Чи...
3 - Сколько четырёхзначных чисел можно составить, используя цифры 1, 2, 3, 4, 6 без...
1 - 46.5 write new questions beginning Do you know...?...
3 - Опишите Какими качествами должен обладать нравственный Умоляю...
1 - Укажіть рядок, у якрму всі дієприслівники з часткою (не) пишуться окремо:а) не/пізнавши,...
3 - Дополните текст предлогами. Chris wakes up … seven o’clock … the morning. He dresses...
3 - с конспееектомм Литосферные плиты - определение 2. Движение земной коры 2.1. Виды...
1 - Укр літ Яке покарання отримали хлопці від дідуся, тореадори з васюківки...
3 - Я первый раз в это приложение , надеюсь на вашу ответ должен быть на лист (в обычной...
1 - Приведіть приклади рослин – паразитів мне вас (｡ŏ﹏ŏ)...
1
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.