Var a,s,i,k: integer;
begin
for i:=1 to 5 do
begin
write ('Введите число: ');
readln (a);
if a mod 6 = 0 then
begin
s:=s+a;
k:=k+1
end
end;
writeln ('Cумма чисел, кратных 6, равна: ',s);
writeln ('Количество чисел, кратных 6, равно: ',k);
if (s<>0) and (s mod 4 = 0) then writeln ('Cумма чисел, кратных 6, делится на 4 нацело');
if (s<>0) and (s mod 4 <> 0) then writeln ('Cумма чисел, кратных 6, не делится на 4 нацело')
end.
Const nx = 20;mx = 20;var x: array[1..nx, 1..mx] of integer; i, j, n,m,q,r: integer;k:boolean; b: array[0..nx] of integer;beginWriteln('Введите число строк n ');Read(n);Writeln('Введите число столбцов m ');Read(m);b[0]:=1;if n >= m thenfor i := 1 to n do beginb[i]:=b[i-1]*2;q:=n;endelsefor i := 1 to m do beginb[i]:=b[i-1]*2;q:=m;end;write(b:3); Randomize; Writeln; Writeln('Исходный массив'); for i := 1 to n do begin for j := 1 to m do begin x[i, j]:=Random(10); Write(x[i, j]:4); end; Writeln; end; Writeln; Writeln; for i := 1 to n do begin for j := 1 to m do begin for r:=0 to q do if (i = b[r])or (j = b[r]) then k:= true; if k = true then Write(x[i, j]:4) else Write(' '); k:=false; end; Writeln; end; end.
снеговик .
начало
скатать большёй шар
потом два поменьше
потом поставить на большёй 2 поменьше
потом воткнуть нос-морковку
скатать 2 малюсеньких шара и прикрепить к туловищу
вставить метлу
одеть вдро на голову
одеть шарф
сделать глаза и рот -угольки
конец
var
n, a, b, c, d: <em>real</em>;
begin
try
assign(input, 'input.txt');
assign(output, 'output.txt');
reset(input);
rewrite(output);
read(input, n, a, b, c, d);
write(output, trunc(a * b * 2 * n * c / d) + 1);
finally
try
close(input);
close(output);
except
end;
end;
end.
Я в этом плохо что понимаю, так что не знаю какие инструменты. Знаю что пр