Помогите пажалуста в программе !!!!! var k,a,x,D:integer; begin k:=0; a:=14; writeln('Продолите ряд чисел 2,5,8,11,'); readln(a); if a=14 then k:=k+1 else k:=k; writeln('Выберите лишнее A)дом B)иглу C)бунгало D)контора',x); readln(D); if x=D then k:=k+1 else k:=k; writeln(k); end.

Вопрос:

Помогите пажалуста в программе !!!!!
var k,a,x,D:integer;
begin
k:=0;
a:=14;
writeln('Продолите ряд чисел 2,5,8,11,');
readln(a);
if a=14 then
k:=k+1
else
k:=k;
writeln('Выберите лишнее A)дом B)иглу C)бунгало D)контора',x);
readln(D);
if x=D then
k:=k+1
else
k:=k;
writeln(k);
end.
Другие предметы
admin 19.05.2023 24

Ответ учителя:

var k,a:integer;
x,D: char;

begin
k:=0;
a:=14;
writeln('Продолжите ряд чисел 2,5,8,11,');
readln(a);
if a=14 then 
k:=k+1
else
k:=k;
writeln('Выберите лишнее A)дом B)иглу C)бунгало D)контора ', x);
readln(D);
if D='D' then 
k:=k+1
else
k:=k;
writeln(k);
end.
Другие вопросы
Создать вопрос

Похожие вопросы: