Напишите, пожалуйста, решение на паскале

Знания

Информатика

1 ответ:

Ольга7764 года назад

0 0

Ответ:

Объяснение:

var

x, y:real;

begin

//x:=5;

readln(x);

if (x < -1) then y:=x+2;

if ((x >= -1) and (x <= 2)) then y:=x*x;

if (x > 2) then y:=6-x;

writeln(y);

end.

Читайте также

Помогите с программой Паскаль Найти значение дроби: в числителе - сумма чисел от 1 до 100 делящихся на 7, а в знаменателе - сум

ashtray07

Var
Ch,Z:real;
i:integer;

Begin
Ch:=0;
For i:= 1 to 100 do
if i mod 7 = 0 then Ch:=Ch+i;
Z:=0;
For i:= 100 to 500 do
if i mod 17 = 0 then Z:=Z+i;
WriteLn(Ch,'/',Z,' = ',Ch/Z);
End.

Результат работы программы:
735/7140 = 0.102941176470588

0 0

4 года назад

Прочитать ещё 2 ответа

Запишите результат выполнения арифметиских операций: 37 div 10 = 58 div 10 = 125 div 10 = 234 div 10 = 873 div 100 = 3985 div 10

Arpine HAKOBYAN [7]

37 div 10 = 3
58 div 10 = 5
125 div 10 = 12
234 div 10 = 23
873 div 100 = 8
3985 div 1000 = 3
37 mod 10 = 7
58 mod 10 = 8
125 mod 10 = 5
234 mod 10 = 4
873 mod 100 = 73
3985 mod 1000 = 985

0 0

4 года назад

Добрый вечер. ПОМОГИТЕ, ПОЖАЛУЙСТА, НАПИСАТЬ ПРОГРАММУ ДЛЯ ДАННОГО ЗАДАНИЯ.

но

Var a:array [1..5, 1..5] of integer;
s,i,j:integer;
begin
s:=0;
for i:=1 to 5 do
for j:=1 to 5 do
begin
read(a[i,j]);
if (i mod 2=0) and (j mod 2=0) then s:=s+a[i,j];
end;
writeln(s)
end.

0 0

4 года назад

Запишите число 2010,0102(10) пятью различными способами

бене [7]

2100 2001 1002 0021 0201

0 0

3 года назад

Прочитать ещё 2 ответа

Чему будет равна переменная «c» после выполнения этой программы: (Это паскаль) a := 22; b := 4; b := a div b + b; c := a mod b +

sanek20142 [3.4K]

вставил прогу в паскаль ответ 100% верный

Ответ 26