Program five_sum; var c, sum : integer begin c := 2; sum := 0; while c < 56 do begin if c mod 5 = 0 then sum := sum + c; c := c + 1 end; writeln( sum ); end.
uses crt; var k:integer; n:integer; begin clrscr; k:=0; writeln('Тест по теме "Циклы"'); writeln('Вопрос 1. Алгоритм называют циклическим, >'); writeln('если в нем:'); writeln('1)Реализуется многократно повторяющаяся'); writeln(' последовательность действий'); writeln('2)Используются повторяющиеся праметры'); writeln('3)Много раз используются одни и те же операторы'); writeln('4)Используются команда выбора');write('Введите номер правильного ответа:'); read(n); if n=1 then k:=k+1; writeln('Вопрос 2. Сколько раз будет выполнятся цикл,<'); writeln('если начальное значение параметра -6'); writeln('конечное значение 6,'); writeln('шаг изменения параметра равен 3'); writeln('1)6 раз'); writeln('2)5 раз'); writeln('3)4 раз'); writeln('4) Не выполнится ни разу'); write('Введите номер правильного ответа:'); read(n); if n=2 then k:=k+1; case k of 1,2:writeln('Плохо'); 3: writeln('Удовлетворительно'); 4: writeln('Хорошо'); 5: writeln('Отлично'); end; readkey; end.
Без проверок и прочего, все как написано в задаче. Если нужно было с проверками - напишите, переделаю :) program Project1; var TotalA, TotalB, SoldA, SoldB : integer; priceA, priceB, sum: real; begin Write(' Введите цену товара "А":'); Readln(priceA); Write(' Введите количество товара "А" в начале рабочего дня:'); Readln(TotalA); Write(' Введите количество проданного товара "А":'); Readln(SoldA); Write(' Введите цену товара "Б":'); Readln(priceB); Write(' Введите количество товара "Б" в начале рабочего дня:'); Readln(TotalB); Write(' Введите количество проданного товара "Б":'); Readln(SoldB); sum:= ((priceA*SoldA)+(priceB*SoldB)); writeln('Выручка от продажи двух товаров за день:', sum:5:2); readln; end.
a, b, c: integer;
begin
c := 56;
for a := 2 to c do
begin if a mod 5 = 0 then b := b + a; end;
writeln(b);end.