Var a: integer;
begin
write ('Введите число: ');read (a);
if (a mod 2 = 0) then writeln ('Число делится на 2');
if (a mod 3 = 0) then writeln ('Число делится на 3');
if (a mod 5 = 0) then writeln ('Число делится на 5');
if (a mod 2 = 0) and (a mod 3 = 0) and (a mod 5 = 0) then writeln ('Ваше число делится на 2,3,5') else writeln ('Ваше число не делится на 2,3,5 одновременно');
<span>end.</span>
Вообще подобные задания обычно делаются в excel.
И делать с массивом или без?.
program abc;
var A : array [1..7] of integer;
s, k: integer;
BEGIN
s:=0
for k:= 1 to 7 do
begin
readln (A[k]);
s:=s+A[k];
end;
writeln ('Среднее атмосферное давление ', (s/7));
END.
<span>#include <iostream></span>
<span>using namespace std;</span>
<span>int main()</span>
{
<span> double val1 = 0;</span>
<span> double val2 = 0;</span>
<span> cin >> val1 >> val2;</span>
<span> cout << "Cумма = " << val1+val2 << "\n";
</span><span> cout << "Разность = " << val1-val2 << "\n";</span>
<span> cout << "Произведение = " << val1*val2 << "\n";</span>
<span> cout << "Частное = " << val1/val2 << "\n";</span>
}
<span>
</span>
Молоко - 11101100
11101110
11101011
11101110
11101010
11101110
Var i:integer;
s:real;
begin
s:=0;
for i:=5 to 26 do
s:=s+sqrt(i);
write('Ответ: ',s);
end.