Cрочно при сложении чисел 2 и 2, получили 11. в какой системе счисления было выполнено сложение? 1) в двоичной; 2) в троичной; 3) в четверичной; 4) определить невозможно. как записывается максимальное трёхзначное число в троичной системе счисления? 1) 200; 2) 222; 3) 300; 4) 333. какое из
чисел больше: 89 или 710? 1) 710; 2) 89; 3) они равны; 4) сравнить нельзя.
1)
program pr1;
var i:integer; n,n2,n3:real;
begin
for i:=1 to 3 do begin
writeln('daite tzifru'); readln(n);
if n in [1..3] then writeln('Prenodlejit intervalu') esle writeln('Ne prenodlejit intervalu');
end;
readln;
end.
2)
program p2;
var i,c,cod,summa:integer; s:string;
begin
writeln('daite tzivfru'); readln(s);
for i:=1 to length(s) do
begin
val(s[i],c,cod); summa:=summa+c;
end;
str(summa,s);
if length(s)>1 then writeln('Summa ne yavljaetsya odnoznachnim chislom: ',s) else
writeln(Summa yavljaetsya odnoznachnim chislom: ',s);
readln;
end.
#include <iostream>
using std::cout;
using std::cin;
using std::endl;
int main()
{
int n, m, counter = 0;
cout << "Enter n: ";
cin >> n;
cout << "Enter m: ";
cin >> m;
if(n >= m)
{
cout << "Invalid value" << endl;
}
else
{
while(n <= m)
{
if(n % 4 == 0)
{
counter++;
}
n++;
}
}
cout << counter << " value" << (counter != 1 ? "s" : "") << endl;
cin.get();
return 0;
}
Вывод:
Enter n: 2000
Enter m: 2012
4 values
На Паскале:
program test;
var n, m, counter: integer;
begin
write('Enter n: ');
readln(n);
write('Enter m: ');
readln(m);
counter := 0;
while n <= m do
begin
if n mod 4=0 then
counter := counter + 1;
n := n + 1;
end;
writeln(counter, ' values');
readln();
end.