Помогите составить программу! - Форум
Понедельник, 05.12.2016, 07:23
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите составить программу!
Помогите составить программу!
ArhangelДата: Среда, 11.05.2011, 20:02 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
Имеется информация о количестве осадков, выпавших за каждый день месяца, и о температуре воздуха в эти дни. Определить, какое количество осадков выпало в виде снега и какое — в виде дождя. (Считать, что идет дождь, если температура воздуха выше 0)
 
melДата: Четверг, 12.05.2011, 09:39 | Сообщение # 2
Сержант
Группа: Заблокированные
Сообщений: 8
[ 0 ]
Статус: Offline
Стучите, реализую 648964446
 
KOT_B_MEIIIKEДата: Четверг, 12.05.2011, 21:05 | Сообщение # 3
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
program monthsta;
label err;
var stat:array [1..31,1..2] of integer; var i,n,dozhd,sneg:integer;
begin
err:writeln('Skolko dnei velosi nabludenie:');{chtobi ne 31 znach vvodit'}
read(n);
if (n<1) or (n>31) then begin writeln('nekorrektnoe chislo dnei');goto err end;
writeln('Vvodite dannie v formate temp,osadki');
for i:=1 to n do
begin
read(stat[i,1],stat[i,2]);
if stat[i,1]>=0 then dozhd:=dozhd+stat[i,2] else sneg:=sneg+stat[i,2];
end;
writeln('dozhdya vipalo ',dozhd,' mm, snega ',sneg,' mm');
end.
http://files.mail.ru/KOYCUD - чтобы не перебивать вручную smile
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите составить программу!
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016