Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
паскаль
Помогите пожалуйста!!!
1) составить программу по решению задачи используя оператор while. Вывести на экран все непарные числа от 70 до 500
2) составить программу по решению задачи используя оператор repeat. Вывести на экран сумму квадратов 45 чисел
3)написать программу вывода текста на экран hello
hello
pascal
pascal
1 | Автор: qwe | 2011-04-06, 22:27 | Изменено: qwe - Ср, 2011-04-06, 22:57   |  Репутация: [ + 0 ]
1)
var
a:integer;
begin
a:=70;
while a<>500 do begin
a:=a+1;
if a mod 2=1 then write(a,' ');end;
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2011-04-07, 11:25   |  Репутация: [ + 211 ]
2)
Каких именно 45-ти чисел?
первых?


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
3 | Автор: Berestovskiy | 2011-04-07, 11:26   |  Репутация: [ + 211 ]
3)
begin
writeln('hello');
writeln('hello');
writeln('pascal');
write('pascal');
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2011-04-07, 11:27   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2011-04-07, 11:27   |  Репутация: [ + 211 ]
Благодарность принимаю повышением репутации ( Зелёный плюсик:) )

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
5 | Автор: Berestovskiy | 2011-04-07, 12:02   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: