решите задачи в паскаль!!!!!!!
5-9 класс
|
1)
Program Pr1;
var a:integer;
Begin
a:=0;
while a<=10 do begin
writeln('Hello');
a:=a+1;
end;
end.
2)
Program Pr1;
var a:integer;
Begin
a:=0;
while a<>1111 do readln(a);
end.
3)
Program Pr1;
var a:integer;
Begin
a:=3;
while a<=25 do begin
if a mod 2<>0 then writeln(a);
a:=a+1;
end;
end.
4)
Program Pr1;
var a,b:integer;
begin
b:=0;
a:=1;
while a<>0 do begin
readln(a);
b:=b+a;
end;
writeln(b);
end.
Другие вопросы из категории
элементов с чётными индексами
Читайте также
Решите задачу с помощью рассуждения (рассуждения присылать тоже)
Задача: В одном доме живут 3 товарища: Вася, Боря и Дима.
Один из них играет в футбол, другой пишет стихи, а третий лучше всех играет в шахматы.
Известно : 1-ВАсин друг с огорчением сказал "Вчера я не сумел реализировать пинальти" 2-товарищ поэта сказал" Дима! Написал бы и ты что нибудь и для нашей футбольной команды"
Назовите имена футболиста, шахматиста, поэта (с рассуждением)
купить на эти деньги?"
напишите пожалуйста как составить это в паскале) буду благодарна:)
клавиатуры.
2)найти перевертышь трехзначного числа.
1) Даны два числа. Составить алгоритм и перевести его на язык программирования, который меньшее из них возводит в квадрат, а большее оставляет без изменения,
ПОМОГИТЕЕ