// с циклом while var s,i:integer; begin i:=100; while i<=999 do begin if i mod 77 = 0 then s:=s+i; i:=i+1; end; writeln('Сумма трехзначных кратных 77: ',s); end.
And (энд) - И end (энд) - конец nil (нил) - нуль set (сет) - множество array (эрей) - массив file (файл) - файл not (нот) - не then (зен) - то begin (бегин) - начало for (фo) - для of (оф) - из to (ту) - увеличивая до case (кейс) - вариант while (вайл) - пока downto (даунту)- уменьшая до record (рикод) - запись with (вис) - с function (фанкшн)- функция or (ор) - или type (тайп) - тип const (конст) - константа go to (гоу ту)- переход на packed (пэкт) - упаковать until (антил) - до div (див) - разделить if (иф) - если procedure() - процедура var (вар) - переменная do (ду) - выполнить in (ин) - в program (програм) - программа else (элс) - иначе mod (мод) - модуль repeat (рипит) - повторять
//c циклом for
var s,i:integer;
begin
for i:=100 to 999 do
if i mod 77 = 0 then s:=s+i;
writeln('Сумма трехзначных кратных 77: ',s);
end.
Тестовое решение:
Сумма трехзначных кратных 77: 5929
// с циклом while
var s,i:integer;
begin
i:=100;
while i<=999 do begin
if i mod 77 = 0 then s:=s+i;
i:=i+1;
end;
writeln('Сумма трехзначных кратных 77: ',s);
end.
end (энд) - конец
nil (нил) - нуль
set (сет) - множество
array (эрей) - массив
file (файл) - файл
not (нот) - не
then (зен) - то
begin (бегин) - начало
for (фo) - для
of (оф) - из
to (ту) - увеличивая до
case (кейс) - вариант
while (вайл) - пока
downto (даунту)- уменьшая до
record (рикод) - запись
with (вис) - с
function (фанкшн)- функция
or (ор) - или
type (тайп) - тип
const (конст) - константа
go to (гоу ту)- переход на
packed (пэкт) - упаковать
until (антил) - до
div (див) - разделить
if (иф) - если
procedure() - процедура
var (вар) - переменная
do (ду) - выполнить
in (ин) - в
program (програм) - программа
else (элс) - иначе
mod (мод) - модуль
repeat (рипит) - повторять