////////Pascal abc///////////
<u>Результат:</u>
-2 44 30 -18 43 19 39 42 -25 -4 33 36 -15 41 44
s=371<span>
</span>
Basic:
DIM a AS INTEGER, b AS INTEGER, c AS INTEGER, k AS INTEGER, x AS INTEGER, y AS INTEGER, z AS INTEGER
INPUT a
INPUT b
INPUT c
INPUT k
y = (a+(d-12)*3)*(c-5*k)
x = d+c*y
z = (c-d)*(x-y)
PRINT x
PRINT y
PRINT z
Var i:real;
begin
i:= 2;
while i <= 15 do
begin
writeln (i : 0 : 0);
i:= i + 0.5;
end
end.
5. если я правильно понял
i - это просто переменная типа integer
a - массив
r - размер массива
for i:=1 to r do
begin
if a[i] > c then
begin
c := a[i];
end;
end;
результат будет в переменной c!
1) Прочитать текст
2) выделить главную мысль текста ( о чём говорится что описывается )
3) озаглавить текст ( так чтобы было понятно о чём говорится в тексте )