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

1. даны два числа. если оба кратны 3, то первое уменьшить в два раза. free pascal

Ответ:

123qwerty0

30.09.2020 19:00

Var a,b: real;

begin

readln(a,b);

If (a mod 3=0) and (b mod 3=0) then a:=a/2;

writeln(a);

end.

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

Популярные вопросы: Информатика

snezhkabo00

09.11.2021 17:16

Решить задания по теме команда ветвления Составить программу вычисления значения функции для любого x по желанию пользователя. 8. Вовочка любитель стрелять из рогатки,...

anonim198

05.06.2023 12:00

Задание № 2 Создать таблицу и отформатировать ее по образцу.Вычисления в столбце Отчетный год в % к предыдущему выполняются по формуле:Отчетный год, тонн / Предшествующий...

lizakiki1

13.05.2020 14:58

Найти разрешение экрана монитора, если его ширина 41 см; 34 см...

kotsweg

11.10.2021 07:18

Программа openoffice.orgcalc используется для … 1) создания текстовых документов 2) создания электронных таблиц 3) создания графических изображений 4) все варианты верны...

xandias

01.06.2020 10:26

Определите устройства компьютера: Это устройство предназначено для хранения информации произвольного доступа. Является основным накопителем данных в большинстве компьютеров...

kitrfjhhru

22.07.2021 00:16

4. Определите правильную последовательность построения фигуры. То что я зделал правильно.? ...

AnnI820

13.12.2020 17:39

Перемножили все натуральные числа от 1 до 100 включительно. Сколько цифр в получившемся в результате числе?...

Bratok16

17.09.2021 06:54

3*а+6*б некоторые натуральные числа, быть простым? . почему?...

kogoch

17.09.2021 06:54

Ветви параболы y=-4x^2-6x+1,2 направлены а) вверх б) вниз...

Sosushka

17.09.2021 06:54

Сочинение на тему как ко мне пришло вдохновение ! заранее...

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

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