Помогите пожалуйста!!!
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)
Каких именно 45-ти чисел?
первых?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
3)
begin
writeln('hello');
writeln('hello');
writeln('pascal');
write('pascal');
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Благодарность принимаю повышением репутации ( Зелёный плюсик:) )
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
