Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите пожалуйста!(
Помогите пожалуйста!(
по введенному году определить является он високосным или нет(1995-2005)

наталька
1 | Автор: Natali70621 | 2012-05-13, 14:10   |  Репутация: [ + 0 ]


наталька
1 | Автор: Natali70621 | 2012-05-13, 14:10   |  Репутация: [ + 0 ]
Code
program god;
var
g:integer;
begin
write('vvedite god ');
readln(g);
if (g<1995) or (g>2005) then
writeln('god ne vhodit v diapozon')
else
begin
if g mod 4=0 then
writeln(g,' god visokosnii')
else
writeln(g, 'god ne visokosnii');
end;
readln;
end.
2 | Автор: scafandr | 2012-05-13, 15:42   |  Репутация: [ + 0 ]
var
a:integer;
begin
readln(a);
if a mod 4=0 then writeln('yes') else writeln('no');
end.

Зачем левое что-то тулить туда?)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
3 | Автор: Berestovskiy | 2012-05-16, 10:01   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите пожалуйста!(
Страница 1 из 11
Поиск: