7)2
8)4
9)3
10)Не уверена,думаю 2
11)
12)primer
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var s:=0;
var a:=ReadInteger('Введите 1 число');
var b:=ReadInteger('Введите 2 число');
var c:=ReadInteger('Введите 3 число');
var d:=ReadInteger('Введите 4 число');
if a mod 3 =0 then s:=s+a;
if b mod 3 =0 then s:=s+b;
if c mod 3 =0 then s:=s+c;
if d mod 3 =0 then s:=s+d;
println('Сумма кратных 3 = ',s);
end.
Тестовое решение:
Введите 1 число 9
Введите 2 число 16
Введите 3 число 18
Введите 4 число 0
Сумма кратных 3 = 27
1) Дрожжи(так как это не относиться к предмету которыми мы идем или что-то делаем)
2)Хлопоты(так как это не относиться к предмету(названия действий или состояния природы))
3) Дебри(не относиться не к одному из слов)
4)Извините, но я немогу сообразить к чему эти слова не относятся и, что из них надо вычеркнуть.
5)Лазурь( не предмет, а относиться к природе)
6) озимь(всходы, посевы, а остальные относяться к чему-то жесткому)
7) Извините, но я немогу сообразить к чему эти слова не относятся и, что из них надо вычеркнуть...=(((
//Pascal ABC.NET 3.1 сборка 1256
Var
s:string;
a,b:real;
begin
readln(s);
a:=strtofloat(copy(s,1,pos('X',s)-1));
b:=strtofloat(copy(s,pos('=',s)+1,length(s)-pos('=',s)));
if (a=0) and (b=0) then
begin
writeln('X-любое действительное число');
exit;
end
else
if a=0 then
begin
writeln('Нет корней');
exit;
end;
writeln(b/a);
end.
Пример ввода:
-0.1X=10
Пример вывода:
-100