Информатика, опубликовано 2018-08-22 22:26:12 by Гость
Не могу составить программу, уже весь мозг перевернул, помогите через Pascal Присвоить целой переменной d четвертую от конца цифру в записи положительного целого числа x (например, если x=34517, то d=4)
Ответ оставил Гость
Program Project;
uses
crt;
var
x,d: integer;
begin
clrscr;
write(x=);
readln(x);
d:=(x div 1000) mod 10;
writeln(d=,d);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на