30 процентов правильный ответ
ответ на экране
Для примера возьмем трехзначное число 671. Если его разделить на 100 и отбросить остаток, то получим 6 — первая цифра (число сотен). Поскольку для целочисленного деления существует операция div, то здесь достаточно вычислить 671div 100, что возвратит нам результат 6. Аналогично мы поступали при вычислении первой цифры двузначного числа в программе Integer6, только там нужно было делить на 10. Этот используется и в данной программе.
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
N: word;
begin
write('N = ');
readln(N); { <-- вводим трехзначное число }
writeln;
{ Находим и выводим первую цифру числа
как целую часть при делени на 100: }
writeln('Первая цифра числа: ', N div 100);
readln
end.
Integer10. Дано трехзначное число. Вывести вначале его последнюю цифру (единицы), а затем — его среднюю цифру (десятки).
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
N: word;
begin
write('N = ');
readln(N); { <-- вводим трехзначное число }
writeln;
N := N mod 100; { <== Последние две цифры }
{ Выводим последнюю и среднюю цифры числа: }
writeln('Последняя цифра: ', N mod 10);
writeln('Средняя цифра: ', N div 10);
readln
end.
Integer11. Дано трехзначное число. Найти сумму и произведение его цифр.
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
N: word; { Трехзначное число }
t1, t2, t3: byte; { Цифры трехзначного числа }
begin
write('Введите трехзначное число: ');
readln(N); { <-- вводим трехзначное число }
writeln;
t3 := N mod 10; { <== третья цифра }
N := N div 10; { <== число созданное первыми двумя цифрами }
t2 := N mod 10; { <== вторая цифра }
t1 := N div 10; { <== первая цифра }
writeln('Сумма цифр: ', t1 + t2 + t3);
writeln('Произведение цифр: ', t1 * t2 * t3);
readln
end.
Integer12. Дано трехзначное число. Вывести число, полученное при прочтении исходного числа справа налево.
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
N: word; { Трехзначное число }
t1, t2, t3: byte; { Цифры трехзначного числа }
begin
write('Введите трехзначное число: ');
readln(N); { <-- вводим число }
writeln;
t3 := N mod 10; { <== третья цифра - единицы }
N := N div 10; { <== число созданное первыми двумя цифрами }
t2 := N mod 10; { <== вторая цифра - десятки }
t1 := N div 10; { <== первая цифра - сотни }
{ t3 - сотни, t2 - десятки, t1 - единицы: }
N := 100 * t3 + 10 * t2 + t1; { <== перевернутое число }
writeln('Прочитанное в обратном порядке число: ', N);
readln
end.
Второй вариант не предусматривает дополнительных переменных для хранения цифр числа:
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
N: word; { Трехзначное число }
begin
write('Введите трехзначное число: ');
readln(N); { <-- вводим число }
writeln;
{ Вычисляем три цифры числа:
1) N div 100 - первая цифра;
2) N div 10 mod 10 - вторая цифра;
3) N mod 10 - третья цифра.
Составляем число с переставленными цифрами справа налево: }
N := 100 * (N mod 10) + 10 * (N div 10 mod 10) + N div 100;
writeln('Прочитанное в обратном порядке число: ', N);
readln
end.
Пошаговое объяснение:
Сорри если не правильно
1.38*3= 114 ц со 2 участка
114+38=152 ц всего
152*1/4=38 ц отправили в овощехранилище
2.(14+а•7):7=42-37
14+7а=5*7
14+7а=35
7а=35-14
7а=21
а=21:7
а=3
3.140+65= 205 книг во второй день
140+205=345 книг за 2 дня
Или выражением
140+(140+65)= 345
4.138+189-118=(138-118)+189= 20+189=209
243+589-489= 243+ 100= 343
245*25*8= 245*200 = 49000
38*37+63*38= 38(37+63)= 38* 100= 3800
5.465×204-8904÷(22×308-6692)= 1)22×308=6776. 2)6776-6692=84. 3)8904÷84=106. 4)465×204=94860. 5)94860-106=94754
6. ) 65*4=260 км проедет за 4 часа
2) 390-260=130 км еще нужно проехать
7. 39:3=13 кг слив в одном ящике
104:13=8 ящиков
8. 1) 140:2=70(стр.)-Лена прочитала половину книги;
2)70+5=75(стр.)-Лена прочитала всего из книги;
3)140-75=65(стр.)-Осталось Лене прочитать в книге;
ответ:65 страниц осталось прочитать Лене.
9. Сначала переводим:
8 ч 36 мин = 516 мин
364 ч 48 мин = 21888 мин
Решаем:
1) 516 мин * 475 = 245100 мин
2) 21888:24 = 912 мин
3) 245100 - 912 = 244188 мин
Переводим обратно в часы:
244188 мин =244188:60 = 4069,8 = 4069 ч 8 мин
ответ: 4069 ч 8 мин
Вроде 25%,но я не уверен точно.Так как не задумывался особо.