program m1;
uses crt;
var a,b,c,d:integer;
begin
write('Введите число: '); readln(a); {Задаем число}
b:=a mod 10; {В переменную b заносится значение последней цифры в числе}
a:=a div 10; {Сокращаем переменную до 2 чисел}
c:=a mod 10; {В переменную c заносится значение последней(второй) цифры в числе}
a:=a div 10; {Сокращаем переменную до 2 чисел}
d:=a mod 10; {В переменную d заносится значение первой цифры в числе}
if (d*b = d + c) then writeln('Произведение 1 и 3 цифры и сумма 2 и 1 цифр равны!')
else writeln('Произведение 2 и 3 цифры и сумма 1 и 1 цифры не равны!');
end.

0 0

4 года назад

Для чего нужна внутренняя и внешняя память компьютера?

Оксана 161 [6]

Внутренняя для работы компьютера , внешняя для пользователя компьютера

0 0

4 года назад

Каждая буква русского алфавита кодируется трехзначным десятичным целым числом. Имеется код: 225242225242225244. Какое слово, из

Crocodiller [15]

Я не знаю как кодируются русские буквы, но глядя на цифровую последовательность
1 2 1 2 1 3
225 242 225 242 225 244

тут всего 3 буквы получается
Буквы идут поочереди, только последняя отличается
т.е должно быть 3 разные буквы

я думаю это в) АРАРАТ
тут 3 буквы А, Р, Т

0 0

4 года назад

Прочитать ещё 2 ответа

Program table; var f,x: real; begin writeln;{перевод курсора на начало следующей строки} x:=-1; while x<=1 do begin f:=

AnnaLomtadze [50]

<h3>Ошибка</h3>

<em>Вы забыли поставить вторую запятую после x</em>

writeln('x=',x' ','f(',x,')=',f);

<em>Исправленный вариант</em>

writeln('x=',x,' ','f(',x,')=',f);

<em />

<h3>Верный код программы</h3>

Program table;

var f,x: real;

begin

writeln;{перевод курсора на начало следующей строки}

x:=-1;

while x<=1 do begin

f:=sqr(x)+1;

writeln('x=',x,' ','f(',x,')=',f);

x:=x+0.1;

end;

end.

0 0

4 года назад