tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Даны два числа а и в. найти
Даны два числа а и в. найти их произведение, если оба числа положительные, иначе найти сумму.
098714
3 12.09.2019 00:50
1
Ответы
вротмента
07.10.2020 08:37
Var
i :integer;
a,b :real;
begin
write('Введите число А: ');readln(a);
write('Введите число B: ');readln(b);
if ((a>0) and (b>0)) then write(a*b)
else write(a+b);
readln;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
protivnuy
15.03.2019 07:20
Нужно составить програмку, чтоб решить пример: 39*54-84 в квадрате. program product; var a,b,c: integer; a: =39*54-sqr(84)); readln end. напишите ошибку, ну и объясните,...
kalymkulovramaz
15.03.2019 07:30
Для записи текста использовался 16 - символьный алфавит. каждая страница содержит 32 строки по 128 символов в строке. какой объём информации содержат 8 страниц текста?...
gremorixiii
18.11.2020 10:46
Тесты Тест URL-адрес 7А, 7Б Прохождение теста Вопрос 1 (из 5) С чего начинается URL-адрес веб-страницы? Варианты ответа (возможно несколько правильных) Сервер Протокол...
мама1036
18.11.2020 10:46
Два игрока, Петя и Ваня, играют в следующую игру. Перед игроками лежат две кучи камней. Игроки ходят по очереди, первый ход делает Петя. За один ход игрок может добавить...
viktorialychykowtuu4
18.11.2020 10:46
Два игрока, Петя и Ваня, играют в следующую игру. Перед игроками лежат две кучи камней. Игроки ходят по очереди, первый ход делает Петя. За один ход игрок может добавить...
з1з1
18.11.2020 10:46
Что такое файл и какими параметрами он обладает?...
Kamelotka
13.09.2020 21:50
У исполнителя Квадратор две команды, которым присвоены номера: 1. возведи в квадрат 2. прибавь b (b — неизвестное натуральное число) Первая из них возводит число на...
даша084
25.06.2019 19:50
Написать программу обмена переменных x и y , без использования дополнительных велечин , ( это надо делать в pascal)...
5polinka
25.06.2019 18:25
Подскажите это нормально у других комп при включении долго включается,например там загрузка виндовс ,а у меня я жму на кнопку включения и сразу же черный экран 5секундная...
Дмитрий111111112222
15.03.2021 10:10
What is the output of the following code? a = 11 b = 3 print (a // 2 % b + 10 / 2 + 2 ** 2) a. 9 b. 10 c. 11 d. 12 e. 13...
Популярные вопросы
Треугольник авс симметричный треугольнике amc относительно прямой...
1
Рассмотри рисунок 83 и определи Какие из них можно назвать экосистемой...
2
Найти расстояние между точками пересечения прямой с осями координат,...
1
Постройте график 2х+6у=3 ; -5x+y-6 ; x-3y=8 ; 0,6x=3 ; -5y=0,4...
3
Омогите мне решить олимпиаду короче нужно составить слово из букв...
2
Выделите верные утверждения. А. Припуски позволяют исправлять неточности...
3
У результаті взаємодії аніліну з бромом масою 104 г одержали 2,4,6-триброманілін...
2
Решить задачу Владелец кафе, чтобы быстро обслужить посетителей в...
2
Что вы узнали о генерале И.В. панфилове...
3
Химия задание на фотографии:...
2
i :integer;
a,b :real;
begin
write('Введите число А: ');readln(a);
write('Введите число B: ');readln(b);
if ((a>0) and (b>0)) then write(a*b)
else write(a+b);
readln;
end.