Клавиатура - клава, бОрда.
Материнская плата - мать, мама, материнка
Дисковод - флоповод
диск - флоппик (гибкий), хард, винт, винчестер - жесткий.
процессор Pentium - пень.
1.
var
Hero:string;
begin
writeln('Введите имя вашего любимого киногероя: ');
readln(Hero);
writeln('Ваш любимый киногерой: ', Hero, '!');
end.
2.
k:=3; m:=k+1; → m:=3+1; // m = 4;
k:=m*m+5; → k:= 4*4+5; //k = 21;
k:= k-10; → k:= 21-10; // k = 11;
Нам надо было найти значение, хранящееся в переменной m: m = 4.
//PascalABC.NET
//Версия 3.4.2
begin
range(1,ReadInteger('n=')).Where(x->x.IsEven).Println;
end.
Ты в условном операторе не указал что должно проверяться... И к тому же нет begin и end;. Также переменную t: string; сделай, так как иначе не выйдет.
У тебя:
<span>readln; <- к тому же не указал что надо писать.
</span><span>if t then <- что это такое? Ошибка.
writeln('Введите коеффициент "a"');
readln (a);
writeln('Введите коeффициент "b"');
readln (b);
writeln('Введите коeффициент "c"');
readln (c);
d := b*b-4*a*c;
Должно быть:
</span><span>program Pr1;
const
H = 'Здравствуйте, ';
var
a,b,c,d: real;
name, t: string;
Begin
writeln('Введите свое имя:');
readln(name);
writeln(H, name, ', вас приветствует программа-калькулятор квадратного уравнения' );
writeln('Введите коеффициент "a"');
readln (a);
writeln('Введите коeффициент "b"');
readln (b);
writeln('Введите коeффициент "c"');
readln (c);
d := b*b-4*a*c;
if d=0 then
begin
writeln ('X1,X2 =', (-b+sqrt(d)/(2*a)));
end;
if d<0 then
begin
writeln ('D<0, корней нет');
end;
if d>0 then
begin
writeln('D = ', b*b-4*a*c);
writeln ('X1 =', (-b+sqrt(d)/(2*a)));
writeln ('X2 =', (-b-sqrt(d)/(2*a)));
end;
writeln ('Хотите воспользоваться калькулятором еще раз? Введите T(Да)\F(Нет)');
readln(t);
t := t.ToLower;
if t = 'да' then
begin
writeln('Введите коеффициент "a"');
readln (a);
writeln('Введите коeффициент "b"');
readln (b);
writeln('Введите коeффициент "c"');
readln (c);
d := b*b-4*a*c;
end
else
writeln('Спасибо за использование!');
if d=0 then
begin
writeln ('X1,X2 =', (-b+sqrt(d)/(2*a)));
end;
if d<0 then
begin
writeln ('D<0, корней нет');
end;
if d>0 then
begin
writeln('D = ', b*b-4*a*c);
writeln ('X1 =', (-b+sqrt(d)/(2*a)));
writeln ('X2 =', (-b-sqrt(d)/(2*a)));
end;
end.</span>
1) Такто А, но может быть еще и В т.к человек мб исполнителем.
2) Б
3)В