Регистрация
raistarasenko
20.07.2022 01:12
Информатика
Есть ответ 👍

ПИТОН! Написать программу, для решения уравнение: Ax=B. Переменные А, B вводятся через клавиатуру через консоль. x-неизвестное. Про область допустимых значений не забываем. Помните, что на ноль делить нельзя. Материал может пригодится

139
262
Посмотреть ответы 1

Ответы на вопрос:

mariaa987
mariaa987
4,6(12 оценок)
Вариант первый: var     a: longint;     n,p: integer;     b: byte; begin write('введите натуральное число: '); readln(a); n: =0; p: =0; while a > 0 do     begin     b: =a mod 10;     if b = 0 then n: =n+1;     if b = 5 then p: =p+1;     a: =a div 10;     end; writeln('количество нулей в числе: ',n); writeln('количество пятёрок в числе: ',p); end. вариант второй: var     a: string;     n,p,i: integer; begin write('введите натуральное число: '); readln(a); n: =0; p: =0; for i: = 1 to length(a) do       if a[i] = '0' then n: =n+1             else if a[i] = '5' then p: =p+1; writeln('количество нулей в числе: ',n); writeln('количество пятёрок в числе: ',p); end.

Популярно: Информатика