Const vt_max=10;
var
i:byte;
sum:integer;
vt:array[1..vt_max]of integer;
begin
sum:=0;
writeln('Начальный массив случайных чисел');
for i:=1 to vt_max do begin
vt[i]:=random(0,12);
write(vt[i]:6);
if (vt[i]<=3) then
sum:=sum+vt[i];
end;
writeln('');
writeln('Сумма элементов не больше 3 равна ', sum);
end.
Ответ:
Python
Достаточно воспользоваться оператором взятия остатка от деления %.
<em>number = int(input('Number: '))</em>
<em>print(number % 7 == 0)</em>
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
for var i := 0 to Trunc((95 + 100) / 0.5) do
begin
var z := -100 + 0.5 * i;
var y := Abs(z) < 1.5 ? Abs(z) + z * z : 1 / (Abs(z) + 1);
Writeln(z:6:1, y:20:16)
end
end.
<h2>Результаты (приведены начало и конец)</h2><h3>-100.0 0.0099009900990099</h3><h3> -99.5 0.0099502487562189</h3><h3> -99.0 0.0100000000000000</h3><h3> -98.5 0.0100502512562814</h3><h3> -98.0 0.0101010101010101</h3><h3>. . . . . . .</h3><h3> 93.0 0.0106382978723404</h3><h3> 93.5 0.0105820105820106</h3><h3> 94.0 0.0105263157894737</h3><h3> 94.5 0.0104712041884817</h3><h3> 95.0 0.0104166666666667</h3>
1) program ht1;
var v,p,r:real;
begin
p:=3.14;
writeln ('vvedite r');
readln (r);
v:=4/3*p*(r*r*r);
writeln(v);
end.
2) program ht2;
var x,y,r:integer;
begin
writeln('vvedite r);
readln(r);
writeln('vvedite x');
readln (x);
writeln ('vvedite y');
readln (y);
if (x<=r) and (y<=r)
then writeln ('prinadlezhit')
else writeln ('ne prinadlezhit');
end.
3) а в третью я врубиться не могу.
1) закодируйте "привет" шифром цезаря сдвигом на 1
2) закодируйте "привет" шифром цезаря с помощью случайного перемешивания букв
3) закодируйте "привет" произвольным блочным шифром
4) закодируйте "привет", затем раскодируйте с помощью шифрования RSA. Ключи сгенерировать ориентируясь на простые числа 14017456892648694625195855726035360572578806956623 и 84141330916983134600891404227101935207023706467497 ,простоту предварительно проверить произвольным методом(я проверял тестами Ферма, все прошло)