Регистрация
555766
24.01.2021 09:25
Информатика
Есть ответ 👍

II В
Какие есть опасности при работе
Интернете? Урок 2
Определи программу проверки текста на
уникальность по предложенному
логотипу.​

143
263
Посмотреть ответы 1

Ответы на вопрос:

alenasher1try
alenasher1try
4,8(16 оценок)

Program z1;

uses crt;

var x: read;

z,d:integer;

begin

clrscr;

write( "Введите число_")

realden(x);

x:=x*10;

z:=trunc(x);

d:=z mod 10;

writeln("первая цифра дробной части=",d);

readkey;

end.

Популярно: Информатика