Program mimi; var a, b: integer; begin readln (a); if 99 < a < then writeln('неверно') else if a> 999 then writeln('неверно') else writen('верно') end. выдаёт: pas(5) : ожидался идентификатор что не так?
Ответы
Переписал без ошибок var a, b: integer; begin readln (a); if 99 < a then writeln('неверно') else if a> 999 then writeln('неверно') else writeln('верно') end.
Const n = 5; en = 'abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz'; ru = 'абвгдеёжзийклмнопрстуфхцчшщьыъэюяабвгдеёжзийклмнопрстуфхцчшщьыъэюя'; var s : string; i : byte; begin readln(s); for i: =1 to length(s) do begin if pos(s[i],en)> 0 then if pos(s[i],en)+n< =length(en) then s[i]: =en[pos(s[i],en)+n] else s[i]: =en[pos(s[i],en)+n-length(en)]; if pos(s[i],ru)> 0 then if pos(s[i],ru)+n< =length(ru) then s[i]: =ru[pos(s[i],ru)+n] else s[i]: =ru[pos(s[i],ru)+n-length(ru)]; end; writeln(s); end.
<html>
<head>
<title> Информация обо мне </title>
<body>
<h1> Информация обо мне<h1>
Фамилия Имя Отчество
Название школы
Номер класса
</body>
</head>
</html>
Объяснение:
p.s <title> Информация обо мне </title> можешь не писать это название страницы
<h1> Информация обо мне<h1> тоже можешь не писать это заголовок
и еще можешь цвета текста менять и размеры
<font color=red size= 5>
Фамилия Имя Отчество
Название школы
Номер класса
</font>
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
If15. даны три числа. найти сумму двух наибольших из них сделать блок схему пож)
Автор: Девяткина_Арсений
решить быстрее щас проверочная, а я не знаю как сделать
Автор: Novikova
Вывести квадраты и кубы 10 чисел следующей последовательности: 1, 2, 4, 7, 11, 16, 22, 29, 37, 46
Автор: Александровна1973
Что такое устройство ввода информации
Автор: vladimirkirv
Постройте логическую схему для следующей функции: F = B∨(C& ¬A) ∨ (A&B)
Автор: Владислав893