Var i, n, j: integer;
begin
write('Введите n ');
readln(n);
if (n>=1) and (n<=100) then
for i:=1 to n do
begin
for j:=1 to i do
write('*');
writeln;
end;
<span>end.</span>

0 0

3 года назад

Ребят, помогите с информатикой плз. нужно решить задачи, только по действиям

ahmetyh

#89
Решение:
5×30×70=10500 символов

0 0

1 год назад

Автомат получает на вход трёхзначное десятичное число. По этому числу строится новое число по следующим правилам. 1. Перемножают

MIB2

1) Сразу ясно, что невозможно, так как максимальное число, которое мы можем получить - это 81 (пермножается наибольшая цифра 9)
2) Здесь уже надо подумать. Из нашего условия видно, что второе число повторяется дважды и там и там. То есть эти два числа (в данном случае 35 и 56) будут иметь одинаковый множитель "второе число". На это и будем опираться. Посмотрим. 35 можно получить из произведения 5 на 7, а число 56 - из произведения 8 на 7. Заметим, что цифра 7 повторяется там и там, то бишь это и есть наша вторая цифра => может оказаться результатом работы автомата.
3) Здесь 32 можно получить, перемножив цифры 8 и 4, а 16 - 2 на 8. Повторяется 8 => может оказаться результатом работы автомата.
4) Делители 35 - это 5 и 7, у 72 - это 9 и 2^3 (8). Здесь уже нет общих делителей. (9 умножить на 2 не получиться, так как это уже будет не цифрой. Только 9 и 8) => не может быть результатом работы автомата.

Более кратко будет так:
1)нет
2)да
3)да
4)нет

0 0

4 года назад

Pascal ABC написать программу вычесления стоимости покупки состоящей из нескольких тетрадей и карандашей

Flexo1 [132]

begin //начало программы

var nk, nt, ck ,ct, s: integer // задание переменных типа действительные числа;

writeln('Введите количество карандашей'); //вывести на экран надпись

readln(nk); // запись ответа пользователя в переменную nk

writeln('Введите количество тетрадей'); //вывод на экран надписи

readln(nt); // запись ответа пользователя

writeln('Введите стоимость 1 карандаша'); // вывод на экран надписи

readln(ck); // запись ответа пользователя в переменную

writeln('Введите стоимость 1 тетради');

readln(ct);

s:=(nk*ck)+(nt*ct); // вычисление стоимости покупки

writeln('Стоимость покупки: ',s); // вывод стоимости покупки на экран

end. // конец программы

(ck-стоимость 1 карандаша, ct-стоимость 1 тетради, s-стоимость покупки)

(nk-количество карандашей, nt-количество тетрадей)

0 0

4 года назад