1.
Var a,b,c : Integer;
Begin
Readln(a,b,c);
Writeln((a mod b)*(c div b));
end.
2.
Var a,d,c,k : Integer;
Begin
Readln(a,d,c,k);
Writeln((a+(d-12)*3)*(c-5*k));
end.
<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadSeqInteger('Вводите числа:',ReadInteger('N='))
.Where(x->Abs(x).Between(10,99)).Count)
end.
<u>Пример</u>
N= 5
Вводите числа: 23 -4 100 -42 16
3
begin
var k:=ReadInteger('K=');
Writeln(ReadSeqInteger('Вводите трехзначные числа:',ReadInteger('N='))
.Where(m->Abs((m mod 10)*(m div 100)*(m div 10 mod 10))=k).Count)
end.
<u>Пример</u>
K= 8
N= 10
Вводите трехзначные числа: 142 712 426 -222 318 916 107 932 -116 473
2
Существенный признак<span> — </span>признак<span>, придающий </span>предмету<span> качественную </span><span>определенность; </span>признак<span>, без которого </span>предмет<span> перестает </span>существовать<span> как данный</span>предмет<span>.</span>