Var a,b,c:real;
Begin
Write('Введите время движения: '); readln(a);
Write('Введите длину пути: '); readln(b);
c:=b/a;
write('Скорость равна: ', c);

End.

0 0

4 года назад

Для какого из указанных значений числа х ЛОЖНО выражение: (х>2) или не (x>1) 1) 1 2) 2 3) 3 4) 4

Газароа

(х>2) или не (x>1)
x=1
(1>2) или не (1>1) ⇒ ложь или не ложь ⇒ ложь или истина ⇒ истина
x=2
(2>2) или не (2>1) ⇒ ложь или не истина ⇒ ложь или ложь ⇒ ложь
x=3
(3>2) или не (3>1) ⇒ истина или не истина ⇒ истина или ложь ⇒ истина
x=4
(4>2) или не (4>1) ⇒ истина или не истина ⇒ истина или ложь ⇒ истина
Ответ: 2) 2

0 0

4 года назад

У старой колдуньи есть 2 кувшина ёмкостью 10 литров и 6 литров . Как старой ведьме отмерить 3 литра для зелья молодости

татьяна09 [6]

Из 10 л ведра переливаем в 6 л ведро . мы знаем что в первом осталось 4 л. × 3 и : 2

0 0

4 года назад

Срочно !Дано число N. Вычислите сумму цифр этого числа, которые не делятся на 4. Язык Паскаль

Elle Driver

var i, sum:integer;

n:string;

begin

readln(n);

for i:=1 to length(n) do begin

if StrToInt(n[i]) mod 4 <> 0 then

sum:=sum+StrToInt(n[i]);

end;

writeln(sum);

end.

0 0

4 года назад