Предмет: Информатика, автор: Neznayka666

Вводится трехзначное число,найти произведение первой и последней цифры числа.
Сделать на Паскале

Ответы

Автор ответа: ZaharovVasya
0
Var a,b1,b2,P:integer;
begin       
Writeln('Vvedite chislo');       
readln(a);       
b1:=a div 100;       
b2:=a mod 10;       
P:=b1*b2;       
writeln('Proizvedenie = ',P);
readln;
end.
Автор ответа: Neznayka666
0
Спасибо!
Предыдущий вопрос
Следующий вопрос
Похожие вопросы
Предмет: История, автор: bobylevaola2
«Велика схизма» XI ст. призвела до
А появи аріанства
Б утворення католицької та православної церков
в зародження чернецтва
гформування феодальної драбини
с​
7 лет назад
Предмет: Информатика, автор: stanislavshpinyuk
1.Выберите верный вариант ответа:
1)Локальные переменные – это ...
а)Переменные написанные строчными буквами;
б)Переменные написанные заглавными буквами;
в)Переменные описанные внутри подпрограммы;
г)переменные имеющие LOCAL
2)Что такое подпрограмма?
а)Это часть программы, оформленная в виде отдельной конструкции и снабженная именем
б)Любая часть программы
в)Верхняя часть программы
г)Часть программы от начала до слова BEGIN
3)Где описываются программы?
а)В любом месте программы
б)В начале программы до оператора BEGIN
в)В конце программы
г)После оператора BEGIN
4)В чем отличие процедуры от функции при описании?
а)У функции должен обязательно быть указан ее тип
б)У процедуры должен обязательно быть указан ее тип
в)Работа с разными типами переменных
г)Отличий нет
5)При описании процедуры ей соответствует оператор…
а)PROCEDURE
б)PROCEDURA
в)PROCEDYRE
г)PROSCEDURE
2.Найти наибольший общий делитель (НОД)
112,32 663,6069,-585,- 189
 3.Исправить ошибки:
Условие задачи: составить программу обмена местами двух чисел c и d (Числа не дробные).
Var c,d m:integer;
Procedure obmen (а, b:string)
var m:integer;
begin
m:=a; a:=b; b:=m
writeln (a,b);
begin
writeln (‘Введите 3 числа:’);
readln (c,d);
begin
obmen (с;d);
writeln (с, ‘ ’, d)
end.
4.Напишите, что напечатает следующая программа:
Program pl;
Var a, b:integer;
procedure fl (x,y:integer)
begin
y:=2*x+3;
end;
procedure f2 (varx, y:integer);
begin
x:3*y+1;
end;
begin
a:=2; b:=3;
fl (а,b);
writeln (‘а=,a,’ b=’,b)
end.
​
7 лет назад
Предмет: Английский язык, автор: ira86280
Придумай предложения с новыми словами:
Difficult-трудный, easy-лёгкий, простой, health-здоровье, healthy-здоровый, keep-оставлять, держать, хранить,
regular-регулярный
useful-полезный​
7 лет назад
Предмет: Алгебра, автор: Аноним
Уравнение:
 4х-6х²=0
10 лет назад
Предмет: Алгебра, автор: SevenTen
0,(7). 1,0 (21). 0,(24). решить с помощью бесконечно убывающей геометрической прогрессии. что-то типа этого (фото) кто помнит, как дальше решать, помогите
10 лет назад