С1. выберите не правильный ответ: свойство алгоритма - выберите один ответ. a. результативность b. определенность c. достоверность question 2 найдите ошибку в коде программы: program pro; a, b, s: integer; begin write ('a='); readln (a); write ('b='); readln (b); s: = a*b; write('произведение s=', s); readln; выберите один ответ. a. пропущены var и read b. пропущены read и mod c. пропущены var и end. question 3 что появится на экране после запуска программы? program s; var x1, x2, y1, y2, s, a, b: real; begin write ('x1='); readln(х1); write ('x2='); readln(х2); write ('y1='); readln(y1); write ('y2='); readln(y2); a: =abs(x2-x1); b: =abs(y2-y1); s: =a*b; write('s=', s); readln; end. х1=14; х2=21; y1=16; y2=35 выберите один ответ. a. 96 b. 86 c. 133 question 4 найдите правильное написание на языке pascal: выберите один ответ. a. (-a+sqrt(sqrb-4ac))/(2*a) b. (-a+sqrt(sqr(b)-4*a*c))/(2*a) c. (a+sqr(sqr(b)-4*a*c))/(2a) question 5 1. для каждого из следующих вопросов выберите соответствующий ответ из меню byte integer shorting
Ответы
program z1;
label 1;
var s,k: real;
begin
s: =0;
1: if s< =1 then begin
k: =sqr(s);
writeln(k);
s: =s+0.2;
goto 1;
end
else end.
program z1;
var a,b,k,i: integer;
begin
k: =0;
write('ââåäèòå êîîðäèíàòó à: ');
read(a);
write('ââåäèòå êîîðäèíàòó b: ');
read(b);
for i: =a to b do begin
if i mod 3=0 then begin
writeln(i);
k: =k+1;
end;
end;
writeln('количество чисел кратных трём равно ',k);
readln;
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Что лишнее зрительная текстовая тактительная обонятельная
Исполните следующий фрагмент линейного алгоритма для а=2 и b=3
