Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

решите задачи в паскаль!!!!!!!

5-9 класс

TSveta99 25 апр. 2013 г., 2:50:04 (11 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Dashulechonok
25 апр. 2013 г., 3:22:10 (11 лет назад)

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-товарищ поэта сказал" Дима! Написал бы и ты что нибудь и для нашей футбольной команды"
Назовите имена футболиста, шахматиста, поэта (с рассуждением)

надо решить задачу по паскалю) "Чтобы избавиться от простуды необходимо 20 таблеток колдрекса или 30 таблеток аспирина. Сколько порций эскимо можно

купить на эти деньги?"
напишите пожалуйста как составить это в паскале) буду благодарна:)

пожалуйста, помогите решить задачи по Паскалю!!!

1) Даны два числа. Составить алгоритм и перевести его на язык программирования, который меньшее из них возводит в квадрат, а большее оставляет без изменения,

ПОМОГИТЕЕ




Вы находитесь на странице вопроса "решите задачи в паскаль!!!!!!!", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.