Var
i,s:integer;
begin
for i:=1 to 100 do
if (i mod 7 =0) and (i mod 2 =0) then
s:=s+i;
writeln(s);
<span>end.</span>
2)b=6*9-4=50
a=50/5*3-4=26
3) a=2*100+50=250
b=250*2-400=100
<span>1.Компьютер - это универсальное электронное программно управляемое устройство для работы с информацией </span>
Д) смешанный вид
Знаю точно такой вопрос у меня был
Var p,h,e,s,t,x: integer;
begin write('Введите стоимость проезда в 1 сторону: ');
readln(p);
write('Введите стоимость проживания в двухместном номере в сутки: ');
readln(h);
write('Введите стоимость питания в сутки: ');
readln(e);
write('Введите стоимость страховки: ');
readln(s);
write('Введите стоимость трансфера: ');
readln(t);
x:=p*2+h*7+e*7+s+t;
writeln('Стоимость тура = ',x, '$', ' - ', x*34.75, 'руб');
<span>end.</span>