Составить программу, которая определяет, принадлежит ли заданное число отрезку [0; 2]. на языке pascal, pascalabc.net
219
365
Ответы на вопрос:
1. pascalabc.net // pascalabc.net 3.2, сборка 1362 от 14.12.2016 // внимание! если программа не работает, обновите версию! begin var x: =readreal('введите число: '); writeln((x> =0) and (x< =2)? 'да': 'нет') end. пример введите число: 1.17 да 2. на этой же версии в стиле традиционного школьного паскаля var x: real; begin write('введите число: '); read(x); if (x> =0) and (x< =2) then writeln('да') else writeln('нет') end.
var
a: array [1..n] of integer;
i,s:integer;
begin
s:=0;
for i:=1 to n do
begin
if a[i]<0 then s:=s+a[i];
end;
end.
Популярно: Информатика
-
zhezhuzina200601.08.2020 11:42
-
svetasvetashi22.04.2021 17:17
-
SokhraNNaya28.09.2022 08:32
-
Artemkotkot2024.09.2022 17:54
-
Rafaelnodat120.11.2022 23:56
-
Mikhail55Rus22.08.2021 01:20
-
02929229929214.03.2022 22:18
-
Hasty2321.03.2022 13:20
-
36459023.03.2020 18:19
-
SonyEricsson27.09.2022 23:39