Найти ! 1. "дано число, определить количество четных цифр." program task3; var a, ost, k: integer; begin write ('ввести число a -> '); read (a); k: =0; while a< > 0 do begin ost: = a mod 10; if ost div 2 = 0 then k: =k+1; end; writeln (k); end. 2. "ученики 4 класса вели дневники наблюдения за погодой и ежедневно записывали в дневник температуру. найти среднюю температуру для дней с температурой выше 0 градусов. определите количество дней. программа получает на выход количество дней, в течении которых проводится наблюдение." program task4; var a, s, t, y, k: integer; n: real; begin write ('введи количество дней -> '); read (a); k: =1; s: =0; t: =y; repeat write ('введи температуру в ',k,'-ый день'); read (y); if a> 31 then write ('количество дней в месяце меньше 31'); if t> 0 then k: =k+1; if t> 0 then s: =s+t; if t=y then write ('k=',k); write ('s=',s); until t=y; if t=y then n: =s/k; writeln ('n=',n); end.
artemplatonov1
1
21.05.2019 03:30
1
Другие вопросы по теме Информатика
galaxykill
22.02.2021 16:55
Agnessasidorevich
22.02.2021 16:58
gsa04
24.08.2019 21:00
katjasumigai
24.08.2019 21:00
Инна0606
24.08.2019 21:00
kwjeps
24.08.2019 21:00
anfisachupina85
14.06.2019 03:10
LolkekCHEBUREK10102
14.06.2019 03:10
Популярные вопросы
- Верно ли что 5-делитель15,8-делитель24,3-делитель105, 75- кратно15,72-кратно8,66-кратно9...
2 - Sam is sit nose snake.почитай слова.соедини их с соответствующим знаком...
2 - Подберите фразеологизмы к пословице,человек маленького роста...
3 - Вычислить массу водорода,занимающего объем 4,0л при давлении 76кпа:...
3 - Дима построил четырехугольник из карандашей 14 см и 10 см 16 см и...
2 - Какое подлежащие в предложении один из польских отрядов может захватить...
3 - Морфемный разбор слова белизна, поскорее...
3 - Из бруска сделали прямоугольный параллелепипед длиной 21 см шириной...
1 - Нужно написать окончания для предложений 1.it isn`t cold 2,the police...
3 - На чертеже дан отрезок ab. (12 см) изобрази этот отрезок в масштабе:...
1
1) Program task3;
var a, ost, k: integer;
begin
write (Ввести число a ->'); read (a);
k:=0;
while a<>0 do begin
ost:= a mod 10;
if ost mod 2 = 0 then k:=k+1;
a := a div 10
end;
writeln (k);
end.
2) Эту не знала как исправить, поэтому в основном просто переписала :)
Program task4;
var a, s, t, i, k: integer; n: real;
begin
write ('Введи кол-во дней -> ');
readln (a);
k:=0;
s:=0;
For i := 1 to a do
begin
write ('введи температуру в ',i,-ый день');
readln(t);
if t>0 then
begin
k:=k+1;
s:=s+t;
end;
end;
writeln('Кол-во дней, в течение которых проводилось наблюдение ', a);
writeln('Кол-во дней с t>0 = ', k);
n:=s/k;
writeln (Средняя температура в дни с t>0 ',n)
end.