Дан фрагмент электронной таблицы, в первой строчке которой записаны числа, а во второй - формулы. __а /в /с / d 1 /3 /8 /2 /6 --- 2 /=d1-c1-1// =d1-a1/ =b1+c1/2 какая из перечисленных ниже формул должна быть записана в в2, чтобы построенная после вычислений круговая диаграмма по значениям диапазона ячеек а2: d2 соответствовала рисунку? 1) =d1-c1 2)=a1+c1 3)=2*c1 4)=(b1-c1)/2
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Дополните до ста! ***');
Writeln('Вам будут предлагаться числа, которые нужно дополнять до 100');
Writeln('Для завершения работы введите 0');
var a,q,k,m:integer;
k:=0; m:=0;
repeat
q:=Random(1,99);
Print(q); Read(a);
if a=0 then break;
if a=100-q then begin
m+=1;
Writeln('Это правильный ответ')
end
else Writeln('Это неправильный ответ, ',100-q);
k+=1;
until false;
Writeln('Задано вопросов- ',k,', верных ответов- ',m,' (',100*m/k:0:1,'%)')
end.
Пример
*** Дополните до ста! ***
Вам будут предлагаться числа, которые нужно дополнять до 100
Для завершения работы введите 0
80 20
Это правильный ответ
5 95
Это правильный ответ
51 49
Это правильный ответ
4 95
Это неправильный ответ, 96
90 10
Это правильный ответ
11 0
Задано вопросов- 5, верных ответов- 4 (80.0%)
var a,b,c, s : integer; // a, b, c, s - переменные. var — ключевое слово, после этого слова объявляют переменные.
begin // begin и end — это как скобки, в которых ты решаешь выражение
readln(a);
readln(b);
readln(c);
// readln() — оператор, с которого можно отправлять данные в компьютер. Есть и такая fорма записи. read(). Отличие read от readln в том, если использует второй вариант readln(), то каретка( _) переносится на новую строку.
s := b*2-4*a*a; // присваиваем значения переменных в переменную s.
if (s > 0) then // конструкция if else позволяет проверять условия, если это равно или не равно, то делай компьютер другое...
writeln(' Число положительное');
else if (s < 0) then
writeln(' Число отрицательное');
// writeln() выводит инfу на экран.
end.