а я разве их не решал
но ладнооо
1)
Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
Begin
clrscr;
readln(stroka);
i:=1;
repeat
val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;
until i=length(stroka);
x:=0;
for i:=1 to length(stroka) do x:=x+mas[i];
if x=10 then writeln('TRUE')
else writeln('ELSE');
end.
2 я не знаю как решать
3)
Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
begin
clrscr;
readln(stroka);
i:=1;
while i<=length(stroka) do begin
val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;
end;
x:=0;
for i:=1 to length(stroka) do x:=x+mas[i];
writeln(x);
end.
4)
Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
begin
clrscr;
readln(stroka);
i:=1;
while i<=length(stroka) do begin
val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;
end;
x:=0;
for i:=1 to length(stroka)-1 do
for k:=1 to length(stroka)-i do if mas[k]=mas[k+1] then x:=x+1;
if x>0 then writeln('TRUE')
else writeln('FALSE');
end.
1.Дан фрагмент программы:
x:=52;
write ( 'ответ: ', х: 2,'км/ч');
После его выполнения на экран будет выведено:
2)ответ: 52км/ч
2.Укажите операторы вывода данных:
1)Write
4)Writeln
3.Целочисленным переменным a, b, c надо присвоить соответственно значения 10, 20 и 30. Какой оператор ввода соответствует входному потоку 30 20 10?
1)read (c, b, a)
4.Для ввода в оперативную память значений переменных используется оператор:
3)readln
5.Что будет выведено на экран после выполнения следующей программы:
begin
writeln (‘Hello, ’);
write (‘World!’)
end.
2)Hello,
World!
Вообще ошибку, потому что кавычки не правильные
a, b, d, s, alpha: real;
begin
Write('Введите длину диагонали прямоугольника: ');
Readln(d);
Write('Введите величину угла между большей стороной и диагональю :');
Readln(alpha);
alpha := Pi * alpha / 180;
a := d * cos(alpha);
b := d * sin(alpha);
s := a * b;
Writeln('Площадь прямоугольника равна ', s:0:3)
end.
Тестовое решение:
Введите длину диагонали прямоугольника: 35
Введите величину угла между большей стороной и диагональю :29
Площадь прямоугольника равна 519.429