Категория
Информатика, опубликовано 10.03.2019 22:20

Найти первую цифру трехзначного числа

Ответы

Ответ
Ответ оставил: Гость
Паскаль var a: integer; begin writeln('введите трехзначное число'); read(a); if a div 100 in [1..9] then writeln(a div 100) else  writeln('ошибка'); end.
Ответ
Ответ оставил: Гость
Лол
это molex питание
Ответ
Ответ оставил: Гость
Const m=500000; p1=25000; p2=16000; p3=2000; n=100;
var k1,k2,k3:integer;
begin
 for k1:=0 to m div p1 do
  for k2:=0 to (m-k1*p1) div p2 do
    begin
    k3:=n-k1-k2;
    if k1*p1+k2*p2+k3*p3=m then writeln(k1,,k2,,k3);
    end;
end.

Результат:
10 5 85
Ответ
Ответ оставил: Гость
Всмысле? Это какой учебник/олимпиада.


Другие вопросы по информатике

Вопрос
Информатика, опубликовано 09.01.2019 16:01
Вопрос
Информатика, опубликовано 09.01.2019 16:01
✅ Ответов: 2 на вопрос по информатике: Найти первую цифру трехзначного числа... ты найдешь на сайте. Также ты можешь добавить свой вариант ответа, если считаешь, что он не верен или твой ответ более полный. Пожалуйста, добавляй только правильные ответы.
Вконтакте Youtube