Барскова1943
?>

Паскаль. Ввести 2 числа по возрастанию (1е < 2го)/. Сообщить, на сколько и во сколько раз 2е больше 1го.

Информатика

Ответы

TatianaSeliverstova64

Var

a, b : integer;

Begin

Write('Vvedite a и b'); Readln(a, b);

Writeln('а меньше b на', b-a);

Writeln('а меньше b в ', b/a, 'раза');

Readln;

End.

Объяснение:

Я смог

Игорь Андрей

Не трать деньги на этот мусор, собранное из него это позавчерашний день! Проц бери хотя бы I3, а памяти не меньше 3Г. Причём, повторюсь, практически за те же деньги.

 

Если это как бы виртуально, то есть абстрактная задача, то такого рода задачи решаются, например, так

1. Комплектующие раскладываются на "кучки", у тебя это будут отдельные списки, отдельно CPU(процессоры), MB(мамы), Memory(память), HDD(винты) ну и так далее.

В каждом списке основные х-ки, стоимость.

Далее смотришь на то, что в конце-концов хочешь получить и набираешь наилучший вариант, если вышел за лимит стоимости, начинаешь "жертвовать" чем либо, заменяя на более дешёвый вариант. В конце концов получится один или несколько примерно равных вариантов.

Ну, например, если заниматься медиа-, нужжен мощный проц, звуковуха, видеокарта, колонки.

Если играть в игры - то основное видеокарта

Если офисный вариант, то всё по-среднему, всё равно тексты набирать в Ворде.

 

НО, повторюсь, предлагаемые тобой комплектующие - на сегодняшний день -МУСОР, из которого ничего стоящего собрать нельзя, даже офисный вариант будет слабоват.

 

Кстати, сейчас, например, LCD-19' стоят всего $100-150. И нужно брать 22-24'', которых у тебя в списке нет.

 

 

tushina2020

1 Program work1;

2 uses crt;  

3 var x,y,z: real;  

4 begin  

5 clrscr ;

6 writeln('введите число x');  

7 readln(x);  

8 writeln('введите  число y');  

9 readln(y);  

10 writeln('введите число z');  

11 readln(z);  

12 if (x<=3) and (x>=1) then writeln ('x-принадлежит интервалу') else writeln ('x не принадлежит и интервалу');

13 if (y<=3) and (y>=1) then writeln ('y- принадлежит интервалу') else writeln ('y не принадлежит и интервалу');

14 if (z<=3) and (z>=1) then writeln ('z-принадлежит интервалу') else writeln  ('z не принадлежит и интервалу');  

15 readln;

Объяснение:

https://ru-static.z-dn.net/files/dd2/796d7c2d2af92262840bd7209eb7f670.bmp картинка

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Паскаль. Ввести 2 числа по возрастанию (1е < 2го)/. Сообщить, на сколько и во сколько раз 2е больше 1го.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

hobpack
Ka2ffka141
Элизбарян
ksankaaleks611
eronch
cat2572066
lobanosky162
Ilin1022
aleksvasin
m-illarionov
ЕВ1873
Shtorm-Shoe
nane2924329
хаджимурод1172
ИНФОРМАТИКА ВО ВО ВЛОЖЕНИИ
troyasport