16 бит = 2 байта
60 кб = 61440 байт
теперь из формулы I=K*i выразим K = I/i = 61440/2= 30720 символов
теперь найдём количество страниц: 30720/(24*80) = 30720/1920 = 16 страниц
var a: integer;
begin
Read(a);
while (a > 0) and (a mod 2 <> 0) do a := a div 10;
Write(a > 0)
end.
A:
Var i,s:integer;
Begin i:=20;s:=0;
While i<=99 do
Begin
s:=s+i;
i:=i+1;
End;
writeln('Сумма',s);
readln;
End.
B:
Var
i: integer;
x: real;begin
x := 0; i := 0;
while i < 10 do
begin inc(i);
x := x + 1/i;
end;
writeln(x);end.
C я не знаю как
<em><u>Pascal:</u></em>
var n,kc,kn:integer;
begin
write ('N = ');
readln (n);
kc:=0;
kn:=0;
while (n<>0) do
begin
if (n mod 10 mod 2 = 0) then inc(kc) else inc(kn);
n:=n div 10;
end;
writeln ('Кол-во четных цифр: ',kc);
writeln ('Кол-во нечетных цифр: ',kn);
end.
<em><u>C++:</u></em>
#include <iostream>
using namespace std;
int main()
{
int n,kn = 0,kc = 0;
cout <<"N = ";
cin >>n;
while (n!=0)
{
if (n%10%2==0)
++kc;
else ++kn;
n/=10;
}
cout <<"Кол-во четных цифр: " <<kc <<endl
<<"Кол-во нечетных цифр: " <<kn <<endl;
return 0;
}
Спочатку спитати хто живе в місті брехунів, якщо він відповість правильно то спитати де знаходиться місто праведолюбів. А якщо ні то спитати де знаходиться місто правдолюбів, і піцу у протилежному напрямку.
