Решите информатику Определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s:=0; k:=0; while s < 80 do begin s:=s+2*k; k:=k+4; end; write(s); end. 2.var s, n: integer; begin s := 300; n := 100; while s - n >= 100 do begin s := s + 20; n := n + 30 end; writeln(s) end. 3.var s, n: integer; begin s := 300; n := 100; while s div n >= 2 do begin s := s + 5; n := n + 5 end; writeln(s) end. 4.Определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s:=0; k:=0; while k < 12 do begin s:=s+2*k; k:=k+3; end; write(s); end.

1)80

2)520

3)405

4)36

1)      а:=b(13)+a(-2)*3=13+(-2*3)=13-6=7

2)      a) readln(а); readln(х);

б) writeln(z)

в)    var b,c : real; (чаще всего используется при нахождении вещественных чисел)

        var a: integer; (чаще всего используется при нахождении вещественных чисел)

г) if d = a(число, которому нужно прировнять, этот фрагмент цикла(если…,то ..иначе)) then d:=d+20; д) z := x + y; ( : = это знак присвоения)
3) 

PROGRAM PR1;

var w,s,b: integer;

BEGIN

READLN (S, B);

w:= ((12*s) + (26*b));

WRITELN (W);

end.
4) Запишите на языке Паскаль следующие условия:
а) f >105 ;
б)  a<184  ;
в)  w<>181;  
г)  z>0;
д) z<=d;
е) (y*x)>=(d+w);
ж)  (w-d)<88;
з) f>=1;
5. Запишите на языке Паскаль команду ветвления для решения следующей задачи:

а) if  a<> 21 then a:=a+28 else a:=a-51;
б) if  a mod  2=0 then a:=a+5 else a:=a-12;

6. Запишите на языке Паскаль команду цикла для решения следующей задачи:
а)  PROGRAM PR1;
var j,p: integer;
BEGIN j:=1; p:=0;
While j>=66 do BEGIN p:= p*j; j:=j+1:
WRITELN (‘произведение чисел = ‘, p);
end.
б)  

PROGRAM PR1;

var n:integer;

begin

for n:=1 to 7 do

writeln('trud');

end.

Var
x,nb,nm,z,xm,xb : longint;
h,g,k : integer;
begin
writeln('Введите количество больших коробок.');
readln(nb);
writeln('Введите количество маленьких коробок.');
readln(nm);
writeln('Введите количество товара в больших коробках.');
readln(xb);
writeln('Введите количество товара в маленьких коробках.');
readln(xm);
writeln('Сколько товара помещается в вагон?');
readln(x);
z:= nb*xb +nm*xm;
if z <= x then
writeln('Все изделия поместятся в один вагон')
else
begin
h := z div x;
writeln('количество вагонов для погрузки всех товаров = ',h);
end;
g:= z div nb;k:= z div nm;
writeln ('освободиться ',g,' больших или ',k,' маленьких коробок');
end.