М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
vladkoles36
vladkoles36
25.01.2021 01:52 •  Информатика

Найдите ошибку program percentage; uses crt; var a,b,c,d: real; begin writeln(', вас программа для нахождения процентов в огэ.искомую переменную обозначтье (0).'); write('введите переменную a-'); read(a); write('введите переменную b-'); read(b); write('введите переменную c-'); read(c); write('введите переменную d-'); read(d); writeln; if a=0 then begin a: =c*b/d; writeln(' ответ: ',a); end; if b=0 then begin b: =a*d/c; writeln(' ответ: ',b); end; if c=0 then; begin c: =a*d/b; writeln(' ответ: ',c); end; if d=0 then begin d: =c*b/a; writeln(' ответ: ',d); end; writeln(' за использование ! '); end.

👇
Ответ:
mozg206
mozg206
25.01.2021
');
  ReadKey
end.

Программа будет выводить несколько значений, если задать при вводе несколько нулей. Если так не должно быть, уточните алгоритм.
4,8(63 оценок)
Открыть все ответы
Ответ:
ВикаФан
ВикаФан
25.01.2021

1) Var i:Integer;

A:array[1..10]of integer;

Begin

Write('Введите пять цифр') ;

For i:=1 to 5 do begin

Read(a[i]) ;end;

Write('Кратные двум') ;

For i:=1 to 5 do begin

If a[i] mod 2 =0 then write(' ', a[i]) ;

End;

Write('кратные четырем') ;

For i:=1 to 5 do begin

If a[i] mod 4 =0 then write(' ', a[i]) ;

End;

End.

2)Var a, b, k, i:integer ;

Begin

Write(' a=') ;read(a) ;

Write(' b=') ;read(b) ;

If (a>0)and(b>0) then k:=0;

If (a>0)and(b<0) then k:=abs(b) ;

If (a<0)and(b>0) then k:=abs(a) ;

If (a<0)and(b<0) then k:=abs(a-b) ;

Write('колво отрицательных чисел ', k) ;

End.

4,5(33 оценок)
Ответ:
maks22157
maks22157
25.01.2021
/*VS C++*/
#include <iostream>

using namespace std;

int main() {
    setlocale(LC_ALL, "Russian");
    int N, y, i;
    bool Prime;
    cout << "Введите число: "; cin >> N;
    do {
    Prime = true;
    y = N % 10;
    for (i = 2; i <= (sqrt(abs(y))); i++) {
        if (y % i == 0) {
            Prime = false;
            break;
        }
    }
    if ((Prime) & (y != 0) & (y != 1))
        cout << y << " - простое" << endl;
    else
        cout << y << " - не простое" << endl;
    N = N / 10;    
    } while (N != 0);
    system("pause");
    return 0;
}

Проверить, состоит ли пятизначное число из цифр, являющихся простыми числами или нет. сообщить о рез
4,5(40 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ