Предмет: Информатика, автор: иолантаи

ПОМОГИТЕ...НУЖНО НАПИСАТЬ В ПАСКАЛЕ

Приложения:

Ответы

Автор ответа: tyngpuk
1

Ответ:

var x: real;

begin

write('Введите пароль: ');

readln(x);

write('Ответ: ',trunc(frac(x*x)*10))

end.

Похожие вопросы
Предмет: Қазақ тiлi, автор: Учитель211
Предмет: Английский язык, автор: xajrova98
Переведите на английский срочнооооооооооооооооооооооооо

По дороге в магазин (shop) я вспомнил, что забыл (оставил)
дома деньги (money).
2. Мы услышали (узнали), что соревнования не состоялись.
3. Когда я пришел на станцию, поезд (train) уже ушел.
4. Она знала, что видела этого человека раньше (before).
5. Я думал, что вы уже закончили институт.
6. Анна выглядела усталой (to look tired), так как много рабо-
тала за последнюю неделю (for the last week).
7. Когда я вошел в класс, я увидел, что моей карты нет. Кто-то
взял ее.
8. Мы окончили работу к 5 часам и ждали вас.
9. Какой иностранный язык вы изучали перед тем, как посту-
пили на факультет?
10. Когда вы позвонили, я еще не закончил перевод статьи.
11. Он сказал, что не пропустил ни одной (single) лекции.
12. Я был уверен, что она получила отличную оценку по (in) анг-
лийскому языку на экзамене. Она много работала над языком в этом
году.