3.
var
a, b : integer;
begin
readln(a, b);
if ((a mod 10) mod 2 = 0) and ((b mod 10) mod 2 = 0) then writeln('Верно') else writeln('Не верно');
end.
4.
var
a : integer;
begin
readln(a);
if (a < 10000) and (a > 999) and (a mod 3 = 0) then writeln('Является') else writeln('не является');
end.
#include <iostream>
using namespace std;
void main()
{
setlocale(NULL, "russian");
int n,
summa = 0;
cout << "Введите количество чисел " << endl;
cin >> n;
for (int i = 0, temp; i < n; i++){
cout << "Введите " << i + 1 << " элемент" << endl;
cin >> temp;
summa += temp;
}
cout << "Сумма " << n << " элементов равна: " << summa << endl;
system("pause");
};
1) Один байт может содержать 2^8 значений. Следовательно максимальное число будет (2^8) - 1. Т.е. 255. Почему (2^8) - 1 а не (2^8)? В область значений входит ноль, который будет 1 значением.<span>
2) Так же как и в первом. </span><span> (2</span><span>^16) - 1</span> цветов. Т.е. 65535 цветов
3) Хз
4) То же что и в первом. 255 символов.
5) Тк бит - минимальная и неделимая единица измерения информации, то мощность алфавита находится в пределе от 31(5 бит) до 63(6 бит).
Var i:integer; n,sum:real;
Begin
Write('Введите 10чисел: ');
while (i<>10) do begin
readln(n);
sum:=sum+n;
i:=i+1;
end;
writeln('Сумма этих чисел - ',sum);
end.
1. Когда знаешь не хуже учителя, а считать символы лень
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var a:='моя Беларусь'.ToWords;
Writeln(a[0]+' родина '+a[1])
end.
2. Когда знаешь кое-что в Паскале, а считать символы лень
const
s='моя Беларусь';
var
i:integer;
begin
i:=Pos(' ',s);
Writeln(Copy(s,1,i),'родина ',Copy(s,i+1,Length(s)-i))
end.
3. Когда не знаешь почти ничего
const
s='моя Беларусь';
begin
Writeln(Copy(s,1,4),'родина ',Copy(s,5,8))
end.