Помогите составить программу!

Знания

Информатика

2 ответа:

ffx4 года назад

0 0

Я так понял:
var y, x :integer;
begin
readln(x);
if x<=0 then y := 3;
if 0<x<6 then y:=-x+3;
if x>=6 then y:=-3;
writeln(y);//Ну это уже красота:)
end.

Лилия 19784 года назад

0 0

//Pascal
var y,x:integer;
begin
readln(x);
if x<=0 then y:=3;
if (x>0)and(x<6) then y:=3-x;
if x>=6 then y:=-3;
writeln(y);
end.

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

Составьте алгоритм возведения чётного числа в квадрат,а нечётного-в куб.

victory631

#include <iostream>
int main() {
int n;
std::cin >> n;
std::cout << pow(n, 2 + n % 2) << std::endl;
system("pause");
return 0;
}

0 0

3 года назад

Помогите ппожалуйста даю 15 баллов

Olga Kostina

Ответ:

Сначала нам нужно найти все вероятности где нет Джаза и где нет Блюза. 470 мы берем за целое. В итоге выходит:

470-200=270 (нет Блюза)

470-355=115 (Нет джаза)

А теперь мы должны от целого отнять страницы, где нет хотя бы одного из них (Блюза или Джаза)

470-270-115=85

Ответ: 85 страниц подходят под запрос

0 0

4 года назад

Написать программу в которой замена производится по такому правилу: если число делится на 2, то оно умножается на 4. Если нет -

Abdu2011

//PascalABC.Net v3.1

var n:integer;

begin

readln(n);

if n mod 2 = 0 then n:=n*4 else n:=n+1;

writeln(n);

end.

0 0

4 года назад

Дана таблица в режиме отображения формул. Записать эту же таблицу в режиме отображения значений

Пол2103

Решение в прикрепленном файле

0 0

4 года назад

В случайном числе от 100 до 5000 подсчитать сумму четных цифр и нечетных цифр. ЧЕРЕЗ ПАСКАЛЬ

Анэтт

Var a,s1,s2,i:integer;
begin
a:=random(4901)+100;
writeln('a = ',a);
s1:=0; s2:=0;
for i:=1 to 4 do
begin
if a mod 2 = 0
then s1:=s1+a mod 10 else s2:=s2+a mod 10;
a:=a div 10;
end;
writeln('Сумма чётных цифр = ',s1,' Сумма нечётных цифр = ',s2);
end.

Пример:
<span>a = 4683
Сумма чётных цифр = 18 Сумма нечётных цифр = 3</span>

0 0

4 года назад