tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Склавиатуры вводится
Склавиатуры вводится трехзначное число. вывести на экран удвоенную цифру единиц pascal.
arkasha27
3 21.06.2019 13:50
0
Ответы
msakinat
17.07.2020 01:59
Var
a,b,c:integer;
begin
write('Введите число: ');
readln(a);
b:= a mod 10 mod 10;
c:=2*b;
writeln('Удвоенная цифра единиц: ',c);
readln;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
хочусдохнуть
21.05.2020 13:25
ПАСКАЛЬ Написать программу, которая из одномерного массива (не менее 5 элементов) выводит максимальный и минимальный элемент введенного массива....
Хомячок225
16.09.2019 14:10
Можете назвать программы для обработки готовых изображений, ? 5-7 примеров хватит...
magnolyabz
16.09.2019 13:02
Составьте кроссворд со словом счет с использованием 10 терминов из информатики...
Undina705
18.02.2022 17:23
Var s:= (10000..99999).Where (s - ((a mod 10 = s div 10000)));Beginprint (s);end. (Sqrt(s)КВАДРАТНЫЙ КОРЕНЬ-??)(trunc(s)-?)хелп)...
gfyfhh
18.02.2022 17:15
Задание. Расстояние от Алматы до Кокшетау составляет 1614 км. Поезд двигался равномерно со скоростью 50 км/ч. За сколько времени поезд доедет до места назначения? Если...
davidpizhuk13456789
29.11.2020 16:48
СКАЗКА ,, ГОРОД МАСТЕРОВ . ответьте на вопросы к сказке . 1. Какие признаки средневекового города вы увидили в сказке? 2.Какие использовали гаражане против своего сеньора...
egorbroggo
29.11.2020 16:48
Урок Информатика Тема:3b редакторКакие инструменты вы используете при создании Юрты и сундука...
synnjhcx
29.11.2020 16:48
Автомобиль Chevrolet Aveo за 100 км пробега расходует около 7 литров бензина (или 5,6 кг). Какую работу совершил за это время двигатель машины, если его КПД 25%? ответ...
ThreeDragons
29.11.2020 16:48
Underlane the correct modal verb. 1. Exuse me will/could you tell me how to get to Oxford street, please? 2. You need not/ should not pick up the children from school,...
146727
29.11.2020 16:48
Решите уравнения: 1) (1-x)-1/9=2/9; 2) (x-+3/8)+2/8=1; 3) (5-x)+2 1/6=5 5/6 4) (8-x)-3 2/15=2...
Популярные вопросы
Капитанская дочь: почему маша отказалась выйти за гринева?...
1
Составить предложения с заданной парой слов: оля-обруч. осень-облако.осы-...
2
Вкниге 208 страниц юученик в первый день прочитал 1.4 часть книги...
3
Самодиктант продолжи запись подбери и запиши по четыре слова с разными...
2
Нужно написать сочинение про плохие качества человека(злость и агрессивность)....
3
Укажите причины вызвавшие франко войну со стороны франции и пруссии...
1
Сравните между собой крупных ракообразных креветок и раков. выявите...
2
По рускому языку члены предложений?...
1
Транскрипция слова вдвоём, карнавал,коридор, ладонь....
1
Паскаль. найти сумму произведений последовательности чисел s: =1*1+2*2+3*3+4**n....
1
a,b,c:integer;
begin
write('Введите число: ');
readln(a);
b:= a mod 10 mod 10;
c:=2*b;
writeln('Удвоенная цифра единиц: ',c);
readln;
end.