Регистрация
Данил1901
17.10.2020 06:04
Информатика
Есть ответ 👍

Нужна аннотация на лекцию по информатике

142
398
Посмотреть ответы 1

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

ilya3694444
ilya3694444
4,5(87 оценок)

делал на abc pascal:

program qq; uses crt; var n: integer; begin clrscr; writeln ('введите число: '); readln (n); if not (n mod 2=0) and (n> 10) and (n< 20) then begin n: =n*n; writeln ('квадрат этого числа равен: ',n); end else writeln ('число не подходит условию '); readkey; end.

 

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