1) дана сторона квадрата а. найдите его площадь S=a2

2) Дано целое число. если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. вывести полученное число.

Question

Информатика

Витуся

19 мая, 17:04

1) дана сторона квадрата а. найдите его площадь S=a2

2) Дано целое число. если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. вывести полученное число.

+5

Ответы (1)

Знаете ответ на вопрос?

Гонората · Answer 1

Var a:real;

Begin

Write ('a = ') ; ReadLn (a) ;

WriteLn ('S = ', a*a) ;

End.

Var

A:integer;

Begin

Write ('Введите целое число: ') ; ReadLn (A) ;

if A > 0 then A:=A+1;

WriteLn (A)

End.