<em>var a:integer; </em>
<em>begin </em>
<em>writeln('Введите целое число'); </em>
<em>read(a); </em>
<em>if ((a mod 10) mod 2=1) then writeln('Последняя цифра числа - нечетная.') </em>
<em>else writeln('Последняя цифра чиста - четная.'); </em>
<em>end.</em><span><em> </em></span>
Сама по себе программа не дописана. Возможно, нужно такое решение.
Program esep8;
Uses crt;
var x,y,z,S,P:double;
begin
clrscr;
writeln('Введите: x,y,z');
readln(x,y,z);
S:=x+y+z;
P:=x*y*z;
If S>P then
write('Ответ: ',S,'>',P)
еlse If S<P then write('Ответ: ',S,'<',P)
else write('Ответ: ',S,'=',P);
readln;
end.
В код программы (после команды загрузки картинки) напиши
Setwindowsize (10,10);
Вместо 10,10 можешь вставить свое число
Надеюсь мое объяснение вам помогло. Буду рад если вы отметите мое решение как лучшее
Во второй строчке видим операторы 'if' и 'then', которые переводятся с английского как 'если' и 'тогда' соответственно. Т. е. если, как бы, перевести вторую строчку на русский язык, то получим следующее:
"если a < 5 тогда"
Таким находящаяся после then функция выполняется только в том случае, если выражение между if и then верно.
Разберем фрагмент кода:
a := 10;
if a < 5 then
a := 5;
Понятно, что на первой строчке переменная 'a' приравнивается к 10. Затем на второй строчке идет условие a < 5. Подставляем 'a': 10<5 — неравенство не верно, поэтому 'a := 5; ' не будет выполнено в этой программе, и 'a' не изменилось, и по-прежнему равно 10.
Рассмотрим еще один фрагмент
a := 15;
if a > 10 then
a := 10;
В первой строке 'a' приравнивается к 15. Затем идет условие a>10, 15>10 — верно, поэтому выполняем следующую строку и приравниваем 'a' к 10. В итоге 'a' становится равным 10
Дано:
i = 16 бит
K = 60 символов
-----------------------
I - ?
Решение:
I = K×i = 60×16 = 960 бит = 120 байт
Ответ: 120 бай