Помогите пожалуйста!( - Форум ПРОГРАММИСТОВ

Новые сообщения · Правила

Страница 1 из 1 1
Модератор форума: 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 из 1
1

прикладная математика