1)3 ................................
Ответ:
Объяснение:
program chet;
var S: integer;
St: string;
begin
S:=0;
WriteLn ('Введите строку, содержащую цифры :');
ReadLn(St);
for var i:=1 to length(St) do
if ( St[i]='0') or ( St[i]='2') or ( St[i]='4') or
( St[i]='6') or ( St[i]='8') then S:=S+1;
WriteLn( 'Четных цифр - ' , S);
ReadLn;
end.
1)
var massive :
array [1..100] of integer;
i : integer;
begin
// рандомизируем сид
randomize();
for i := 1 to 100 do begin
// заполняем массив случайными числами от -100 до 100
massive[i] := random(201)-100 ;
// выводим число, если оно больше нуля и кратно двум.
if ((massive[i] > 0) and (massive[i] mod 2 = 0))
then write(massive[i]+' ');
end;<span>
end.
2)
var a :
array [1..50] of integer;
i ,summ: integer;
begin
// рандомизируем сид
randomize();
// инициализируем переменную суммы
summ := 0;
for i := 1 to 50 do begin
// заполняем массив случайными числами от -100 до 100
a[i] := random(201)-100 ;
// суммируем если кратно трем
if a[i] mod 3 = 0 then begin summ := summ + 1; write(a[i] + ' '); end;
end;
// выводим результат
writeln();
writeln('Сумма чисел кратных трем = ' + summ);
end.
</span>
<u>PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,y):=ReadReal2('x,y=');
Writeln((Sin(x)+cos(y))/(Cos(x)-Sin(y))*Tan(x*y))
end.
