Вычислить результат выполнения программы var d, t: integer;
begin
d:=13;
t:=3;
t:=d mоd 4. ;
t:=t div 3;
writeln (d);
end

Question

Информатика: Вычислить результат выполнения программы var d, t: integer; begin d:=13; t:=3; t:=d mоd 4. ; t:=t div 3; writeln (d); end​

NikiMimi98 · Accepted Answer

// PascalABC.NET 3.0, сборка 1111
const
alpha=['a'..'z'];
digits=['0'..'9'];
var
na,nd,i:integer;
s:string;
begin
na:=0; nd:=0;
Write('Введите текст: '); Readln(s);
for i:=1 to Length(s) do
    if s[i] in alpha then Inc(na)
    else
      if s[i] in digits then Inc(nd);
if na>nd then Writeln('В тексте больше букв')
else
    if na<nd then Writeln('В тексте больше цифр')
    else Writeln('В тексте букв и цифр поровну')
end.

Тестовое решение:
Введите текст: the equation 3.546x^2+4.18x-4.1=0
В тексте больше букв

Вычислить результат выполнения программы var d, t: integer;begind:=13;t:=3;t:=d mоd 4. ;t:=t div 3;writeln (d);end​

MOGZ ответил

Вычислить результат выполнения программы var d, t: integer;
begin
d:=13;
t:=3;
t:=d mоd 4. ;
t:=t div 3;
writeln (d);
end