Ответ.
Меню
Задать вопрос!
Вход
Регистрация
Задать вопрос!
Меню
Все категории
Фотография и видеосъемка
Знания
Другое
Гороскопы, магия, гадания
Общество и политика
Образование
Путешествия и туризм
Искусство и культура
Города и страны
Строительство и ремонт
Работа и карьера
Спорт
Стиль и красота
Юридическая консультация
Компьютеры и интернет
Товары и услуги
Темы для взрослых
Семья и дом
Животные и растения
Еда и кулинария
Здоровье и медицина
Авто и мото
Бизнес и финансы
Философия, непознанное
Досуг и развлечения
Знакомства, любовь, отношения
Наука и техника
kaba4ok
3 года назад
7
Дано число, удвоить его в 3 раза если оно кратно 17. В противном случае уменьшить на 4. Вывести ответ на экран. В pascal abc
Знания
Информатика
Ответить
Комментировать
Отправить
1
ответ:
wasia1327
3 года назад
0
0
Var a:real;
begin
read(a);
if a mod 17 = 0 then begin
write(a*2*3);
end;
else begin
write(a-4);
end;
end.
Отправить
Читайте также
Составить алгоритм и написать программу на паскале нахождение разности цифр 4-х значного числа
Кира Крокс
Var a,b,c,d,N:integer;
begin
Readln(N);
a:=N div 1000;
b:=(N div 100) mod 10;
c:=(N div 10) mod 10;
d:=N mod 10;
N:=a-b-c-d;
Writeln(N);
end.
0
0
8 месяцев назад
Сколько ячеек содержится в диапазоне А3:Е3?
Selifanova
Если не ошибаюсь, то 5
0
0
3 года назад
Ребят, помогите, пожалуйста! В excel нужно построить на промежутке [-2;2] с шагом 0,4 таблицу значений функции: y= x в квадрате+
rolex
Решение во вложении...
0
0
4 года назад
Если размер данных за такт равен 2 байта, то процессор называют ...
gbdhjklbxst [7]
Шестнадцатиразрядным (16 бит)
0
0
3 года назад
часть схемы пере дающей информацию 5 букв
НАТАЛИ 2
плата вроде как, если не ошибаюсь
0
0
4 года назад
Прочитать ещё 2 ответа
Смотрите также:
Подобрать материал на 3-4 известных личностей Тюмени
15
·
1 ответ
Какие из чисел можно сохранить в 8-разрядном беззнаковом формате?
13
·
2 ответа
Какие значения будет принимать величина- счетчик при выполнении следующего цикла: от b=1 до 13 шаг 4
8
·
1 ответ
Какие параметры необходимо установить перед началом печати документа?
11
·
1 ответ
Чертѐжнику был дан для исполнения следующий алгоритм:Повтори 2 разКоманда 1 Сместиться на (1, 3) Сместиться на (1, -2)КонецСмест
6
·
1 ответ
49 БАЛЛОВ. На складе предприятия хранится некоторое количество различных сортов муки. Сообщение о том, что для выпечки была испо
6
·
1 ответ
Программа на паскале 7) Вычислить значение многочлена: 2a^2-9a+1/2 для a= 0,1,2,...x
7
·
1 ответ
Помогите решить пожалуйста(подробно): Найдите ошибки в алгоритме: for i:= 1 to n dobeginfor j:= 1 to m do c[i,j]:=a[i,j]+ a[i,j]
7
·
2 ответа
Ошибка времени выполнения: Индекс находился вне границ массива...чтто не так? const n=30; var i,j,p,q:integer; c:array[1..n,1..n
6
·
1 ответ
Переведите число 1110001 из двоичной системы счисления в десятичную
14
·
1 ответ
×
Добавить ответ
Отправить
×
Вход
E-mail
Пароль
Запомнить меня
Войти
Не зарегистрированы?
Пройти быструю регистрацию
×
Регистрация
Ваше имя
E-mail
Пароль
Зарегистрироваться
close
Вход
Регистрация
Задать вопрос!