var A,B,C,S1,S2,k,i:integer;
begin
write('A, B, C:');
readln(A,B,C);
S1:=0;
while A>S1 do
begin
k:=k+1;
S1:=S1+C;
end;
S2:=0;
while B>S2 do
begin
i:=i+1;
S2:=S2+C;
end;
k:=k*i;
writeln('k = ',k);
end.
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём ИЗ "...\Отделы\Обмен\";
ПЕР
число: ЦЕЛ;
УКАЗ
число := Приём.Число(); Вывод.Цепь("^");
ЕСЛИ
число ДЕЛИТЬ 1000 < число ДЕЛИТЬ 100 ОСТАТОК 10 И
число ДЕЛИТЬ 100 ОСТАТОК 10 < число ДЕЛИТЬ 10 ОСТАТОК 10 И
число ДЕЛИТЬ 10 ОСТАТОК 10 < число ОСТАТОК 10
ТО
Вывод.Цепь("труе")
ИНАЧЕ
Вывод.Цепь("фалсе")
КОН
КОН Задание.
Расположен в папке математика! у нас тоже все вторник написали, и оказалось неправильно!
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
// №1
var a:=ArrRandom(15,-50,50); a.Println;
a.IndexesOf(t->t.IsEven).Select(t->t+1).Println;
// №2
var b:=ArrRandom(ReadInteger('n='),0,86); b.Println;
a.Where(t->t mod 3=0).Sum.Println;
// №3
var c:=ReadArrInteger(ReadInteger('m='));
c.Sum.Println;
// №4
var d:=ArrRandom(ReadInteger('n='),-60,60); d.Println;
d.Where(t->t>0).Sum.Println
end.
<u>Пример</u>
41 37 -10 7 33 -8 49 -1 -14 26 -17 -23 47 -25 7
3 6 9 10
n= 13
0 63 53 71 35 56 34 86 31 15 84 74 35
33
m= 8
13 -12 54 11 47 0 42 100
255
n= 18
52 39 -43 48 -34 -56 -14 28 -51 48 -56 -21 60 -19 -5 -19 43 44
362
Ответ:сигнал
Объяснение:читаешь задом наперед лиса получается асил убераешь первую и последнюю букву получилось СИ потом смотрим дальше показанно г на л всего СИГНАЛ