| wldyslaw | Дата: Вторник, 17.05.2011, 18:56 | Сообщение # 16 |
 Генералиссимус
Группа: Администраторы
Сообщений: 21
Статус: Offline
| вариант 15
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Program Z16;
Uses crt;
Var N:integer;
Begin
clrscr;
writeln('BBeDuTe HoMeP BpeMeHu roDa');
readln(N);
case N of
1: Writeln('Zima: December, January, February');
2: Writeln('Vesna: March, April, May');
3: Writeln('Leto: June, July, August');
4: Writeln('Osen: September, October, November');
else
Writeln('Net takogo mes9ca');
end;
End.
|
| |
| |
| wldyslaw | Дата: Вторник, 17.05.2011, 18:56 | Сообщение # 17 |
|
Генералиссимус
Группа: Администраторы
Сообщений: 21
Статус: Offline
| вариант 16
1
2 б
3 г
4 в
5 а
6
7
8
9 б в г д
10 г д
11 а г в д
12 а г
13 а-4 б-3 в-5 г-2 д-1
14 а-4 б-3 в-1 г-5 д-2
16
program
uses crt
var N:real
begin
clrscr
writeln('введите N')
readln(n)
case N of
1,2,3:writeln('1 kv')
4,5,6:writeln('2kv')
7,8,9:writeln('3kv')
10,11,12:writeln('4kv')
else
writeln('net dannuh')
end;
END.
|
| |
| |
| wldyslaw | Дата: Вторник, 17.05.2011, 18:57 | Сообщение # 18 |
|
Генералиссимус
Группа: Администраторы
Сообщений: 21
Статус: Offline
| вариант 17
1 а
2 б
3 в
4
5 г
6 б
7 б в г
8 б а г
9 а б в д
10 а б д
11 авд
12 аг
13 а-2 б-5 в-4 г-1 д-3
14 а-3 б-1 в-4 г-5 д-3
15 а-5 б-4 в-2 г-1 д-3
16
Program Z16;
Uses crt;
Var N:integer;
Begin
clrscr;
writeln('vvedite N');
readln(N);
case N of
1: Writeln('январь февраль март');
2: Writeln('апрель май июнь');
3: Writeln('июль август сентябрь');
4: Writeln('октябрь декабрь');
else
Writeln('Net dannuh');
end;
End.
|
| |
| |
