var a,b:integer;
is7:boolean;
begin
readln(a);
b:=0;
is7:=false;
while a <>0 do
begin
b:=b+a mod 10;
if a mod 10 = 7 then
is7:=true;
a:=a div 10;
end;
wrtieln('Сумма цифр: ', b);
write('Цифра 7 ');
if is7 then writeln('есть') else writeln('нет');
readln;
end.
Ответ:
1. 50 байт
2. 4 страницы
Объяснение:
2. всего текст занимает 10*1024 байта=10240 байт
8 битная кодировка означает что на хранение 1 символа требуется 8 бит=1 байт. получается, что текст содержит 10240 символов.
этот текст поместится на 10240/64 строках = 160 строк
160 строк поместятся на 160/40=4 страницах
1. посчитаем сколько символов в строке, учитывая пробелы и знаки - 50.
1. Конъюнкция
2. Дизъюнкция
3. Инверсия
4. Импликация
5. Эквиваленция
Я не знаю, в каком порядке приложение распределит фото, но надеюсь, что всё понятно
Uses crt;
var x,y:real;
begin
readln(x);
if x<4 then y:=2*x*x*x+1/x-5
else y:=3*x*x-2;
writeln(y);
<span>end.</span>
Var
a,b,c,max:integer;
begin
writeln('Введите возраст призеров:');
readln(a,b,c);
if (a < b) and (a < c) then
begin
max := a;
writeln('Самый младший - первый призер, ему ',max,' лет.');
end;
if (b < a) and (b < c) then
begin
max := b;
writeln('Самый младший - второй призер, ему ',max,' лет.');
end;
if (c < a) and (c < b) then
begin
max := c;
writeln('Самый младший - третий призер, ему ',max,' лет.');
end;
end.