1.дано натуральное число m. подсчитать количество всех 0 в числе. 2.дано натуральное число n. вывести это число в обратном порядке (все на языке паскаль abc)
Var m,n:integer; Begin WriteLn('m = '); ReadLn(m); n:=0; While m>0 do Begin if m mod 10 = 0 then n:=n+1; m:=m div 10 End; WriteLn('Кол-во нулей в данном числе равно: ',n); End.
Var n:integer; Begin Write('n = '); ReadLn(n); While n>0 do Begin Write(n mod 10); n:= n div 10 End; End.
dim years years = inputbox("Введите ваш возраст") if years = 1 then msgbox("Мне 1 год") end if if years = 2 then msgbox("Мне 2 годa") end if if years = 3 then msgbox("Мне 3 годa") end if if years = 4 then msgbox("Мне 4 годa") end if if (years >= 5) and (years <= 19) then msgbox("Мне "+cstr(years)+" лет") end if
if years >= 20 then dim s s = "Мне "+cstr(years) if (years mod 10 = 1) then s = s + " год" end if if (years mod 10 >= 2) and (years mod 10 <= 4) then s = s + " годa" end if if (years mod 10 >= 5) and (years mod 10 <= 9) then s = s + " лет" end if if (years mod 10 = 0) then s = s + " лет" end if msgbox(s) end if
Написал на VBS, тот же бейсик, который есть в школах
dim years years = inputbox("Введите ваш возраст") if years = 1 then msgbox("Мне 1 год") end if if years = 2 then msgbox("Мне 2 годa") end if if years = 3 then msgbox("Мне 3 годa") end if if years = 4 then msgbox("Мне 4 годa") end if if (years >= 5) and (years <= 19) then msgbox("Мне "+cstr(years)+" лет") end if
if years >= 20 then dim s s = "Мне "+cstr(years) if (years mod 10 = 1) then s = s + " год" end if if (years mod 10 >= 2) and (years mod 10 <= 4) then s = s + " годa" end if if (years mod 10 >= 5) and (years mod 10 <= 9) then s = s + " лет" end if if (years mod 10 = 0) then s = s + " лет" end if msgbox(s) end if
m,n:integer;
Begin
WriteLn('m = ');
ReadLn(m);
n:=0;
While m>0 do
Begin
if m mod 10 = 0 then n:=n+1;
m:=m div 10
End;
WriteLn('Кол-во нулей в данном числе равно: ',n);
End.
Var
n:integer;
Begin
Write('n = ');
ReadLn(n);
While n>0 do
Begin
Write(n mod 10);
n:= n div 10
End;
End.