сервис вопросов и ответов9 класс, смотрите вложения! Решите в программе Паскаль ОПЕРАТОР ЦИКЛА REPEAT.
5-9 класс|
|
Прикрепленные изображения
вадим61
02 нояб. 2013 г., 15:30:48 (10 лет назад)
KuznetzowaAleno4ka
02 нояб. 2013 г., 17:04:02 (10 лет назад)
программа здесь: http://rghost.ru/43527025
var chislo, summa, proizv:integer;
begin
summa:=0;
proizv:=1;
repeat
Writeln('Input number: ');
Readln(chislo);
if chislo mod 2 = 0 then summa:=summa+chislo;
if chislo <>0 then proizv:=proizv * chislo;
until chislo=0;
Writeln('a) Sum = ', summa);
Writeln('b) Proizvedenie = ', proizv);
readln;
end.
Ответить
Другие вопросы из категории
Читайте также
ПОМОГИТЕ НАПИСАТЬ ХОТЯ БЫ ОДНУ ЗАДАЧУ НА Pascal ОНИ НЕ СЛОЖНЫЕ , А Я ДАЮ МНОГО ПУНКТОВ!! За 2 лучший ответ! Без плагиата! 1.Написать
программу,используя оператор цикла While,которая будет вводить целые положительные числа не превышающие 100. Найти сумму квадратов чисел 2.Написать программу используя оператор цикла Repeat,которая будет вводить целые числа до тех пор пока не будет введён 0.Подсчитать среднее арифметическое введённых чисел.
Составьте программу, используя оператор цикла с параметром:
S:=1(в квадрате)+2(в квадрате)+3(в квадрате)+...N(в квадрате).
Добавьте комментарий к программе с оператором цикла Я составила программу ,но не знаю правильно или нет ,проверьте пожалуйста и
добавьте комментарий
program Metka;
label M1;
var x: shortint;
begin
M1:writeln ('x>100')
readln(x);
if x<100 then GOTO M1
end.
Вы находитесь на странице вопроса "9 класс, смотрите вложения! Решите в программе Паскаль ОПЕРАТОР ЦИКЛА REPEAT.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.