Задать вопрос!

Задать вопрос!

Все категории

татьяна белок

3 года назад

7

1. Конвертер валют. Программа хранит в переменных курс доллара и евро. Пользователь вводит сумму в рублях и получает информацию

о том, сколько эта сумма составляет в долларах и евро.

Информатика

1 ответ:

ВикторСх3 года назад

0 0

Если надо в константы переделать - пиши, переделаю ;)

Читайте также

Определи, какому десятичному числу соответствует двоичный код 00110100.

tata2707

Объяснение:

52-это ответ............

0 0

4 года назад

Переведите с basic'e на pascal:CLSFOR a = 1 TO 100FOR b = 1 TO 100FOR c = 1 TO 100aa = a ^ 2bb = b ^ 2cc = c ^ 2IF aa + bb = cc

Velgia [7]

Добавил ещё команду печати списка найденных троек, а не только их количества (строка writeln('(',a,', ',b,', ',c,') '); ).

0 0

4 года назад

Помогите)задание:проверьте, является ли произведение четырех произвольных чисел, введенных с клавиатуры, четным число. составьте

mari1996

var

a,b,c,d:integer;

p:longint;

begin

write ('A = ' );readln(a);

write ('B = ' );readln(b);

write ('C = ' );readln(c);

write ('D = ' );readln(d);

p:=a*b*c*d;

if odd(p)=false then writeln ('YES') else writeln ('NO');

readln;

end.

0 0

4 года назад

Даю 5 баллов тема: измерение информации

Рейнхардт

66. 256 = 2^8. 1 символ равен 8 бит.
15*32*64*8*8 = 1966080 байт

0 0

4 года назад

CРОЧНО ОЧЕНЬ!!!!программа которая на входе получает шесть чисел a, b, c, d, e, f, а выводит: если точки нет, то программа говор

Don Nikas

1) if b<>0 then
begin
y:=-c/b ;
writeln('(0;',y,')');
end
else writeln('такой точки нет');
2) if a<>0 then
begin
y:=-c/a ;
writeln('(',x,'0)');
end
else writeln('такой точки нет');
3) 4) аналогично для коэффициентов <span> d, e, f</span>
5) if (bd-ae)<>0 then
begin
x:=(-f*b+e*c)/(b*d-a*e);
y:=(-c-a*x)/b;
writeln('(',x,';',y,')');
end
else writeln('не пересекаются');

0 0

2 года назад