1)program p1;
var m,n: integer;
begin
write('вводите число: '); readln(n);
if n> =100 then
begin
m: = n mod 10;
writeln('последняя цира: ',m);
m: =n div 10 mod 10;
writeln('предпоследняя цира: ',m);
end;
end.
2)program p2;
var t1,t2,t3,d1,d2,d3,v1,v2,v3: integer;
vsr: real;
begin
write('вводите время езды(ч): '); readln(t1,t2,t3);
write('вводите скорость(км/ч): '); readln(v1,v2,v3);
d1: =v1*t1;
d2: =v2*t2;
d3: =v3*t3;
vsr: =(d1+d2+d3)/(t1+t2+t3);
writeln('средяя скорость= ',vsr: 1: 2,'км/ч');
end.
Алгоритм месяц
1Открыть программу paint
2Выбрать снизу нужный цвет
3Взять инструмент «кривая линия» и нарисовать линию
4Затем оттянуть её (сделать полукругом)
5Взять снова эту линию и повторить то же самое
6Тапнуть по инструменту лупа и проследить, чтобы не было щелей между линиями
7Выполнить заливку »месяца»
Алгоритм цветок
Повторяем пункты 1 и 2
3 Берём инструмент круг и рисуем круг
4 Далее рисуем вокруг него ещё круги (лепестки)
5 выполняем заливку нужным цветом
6 выбираем инструмент линию и рисуем стебель
Алгоритм для колобка
Повторяем пункты 1 и 2
3 Выбираем инструмент круг и рисуем круг
4 Этим же инструментом рисуем глаза и нос
5 Выполняем заливку нужным цветом
6 Берём инструмент кривая линия и рисуем улыбку(растягиваем хоть до ушей)
7 Берём инструмент карандаш и рисуем недостающие части тела
Відповідь:
1
Пояснення:
Смотри фото я тебе скинул я запустил прогу в паскале
тоисть запускаеться цыкл он проходит 7 раз
в первом м получаеть 43 втором 36, потом 29,потом 22,потом 15,потом 8,потом 1
ответ 1 смотри скрин