Войти Регистрация Спроси ai-bota

Нужно составить программу на языке ПаскальABC

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

AlexeyVT

05.02.2023 17:38

Что не так? пишет ошибка begin rogram pr; var a,b,с,: integer; begin writeln( введите три целых числа ); read(a,b,c); s: =(sqrt((2*a)+(3*(b*b*/(a-c); k: =(2*(s*s*s**(sqrt(abs(a*b*;...

FTA72артем

12.11.2020 18:10

нужно Передача информации нужна для её . Основными устройствами для быстрой информации на большие расстояния сейчас являются телеграф, радио, телефон, телевизионный...

Andrey0116

01.07.2020 13:39

Написать вычислительную программу на Паскале могу позже поднять до 30...

puremoorning

29.05.2023 03:09

С координатной прямой Найдите значение суммы...

Annalmak

21.03.2022 04:55

(( дано целое число n 1, найти наибольшее целое число k при котором выполняется неравенство 3к...

Катикини

21.03.2022 04:55

Составьте обучающую модель-схему-связи слов в предложений...

Вапрос86

21.03.2022 04:55

По стеблю растения, высота которого 1 метр, от земли ползёт гусеница. днём она поднимается на 3 дм, а ночью опускается на 2 дм. через сколько суток она окажется на...

lokosso

07.02.2023 00:09

Что будет напечатано после выполнения следующей команды: const a: array [1..6] of integer=(12,-15,14,3,9,10); for i: =2 to 5 do begin if a[i] mod 2=0 then write (a[i]:...

karolinaivanova10

07.02.2023 00:09

Решить такое дано натуральное число n. вычислить y=2*4*6*). вводится число n. в цикле типа пока шаг равен 2, перебираются все числа от 2 до 2n, шаг равен 2, все числа...

frausadykova20

31.01.2020 02:22

Протабулируйте g(x) = √(4 − x^2) на отрезке [-3; 3] с шагом 0,5....

Ответ:

nazarovradion

15.05.2020 21:59

var x,y:integer;

begin

readln(x);

if x > 0 then

y := 2*x

else

y := x - 1;

writeln(y)

end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку