Program HFi;
var a,b:integer;С,F:real;
begin
writeln('Введіть значення а');
read(a);
writeln('Введіть значення b');
read(b);
writeln('Введіть значення С');
read(С);
writeln('Фаренгейт Цельсій');
for a:=1 to b do begin F:=1.8*C+32;writeln(F:4,C:15:2) end;readln;
end.
Неожиданный символ "С" строка 2
var a,b:integer;С,F:real;
begin
writeln('Введіть значення а');
read(a);
writeln('Введіть значення b');
read(b);
writeln('Введіть значення С');
read(С);
writeln('Фаренгейт Цельсій');
for a:=1 to b do begin F:=1.8*C+32;writeln(F:4,C:15:2) end;readln;
end.
Неожиданный символ "С" строка 2
Answers & Comments
var a,b:integer;
c,f:real;
begin
writeln('Введіть значення а');
read(a);
writeln('Введіть значення b');
read(b);
writeln('Введіть значення С');
read(c);
writeln('Фаренгейт Цельсій');
for a:=a to b do begin
F:=1.8*c+32;
writeln(f:4,C:15:2)
end;
readln;
end.
var a,b:integer;
c,f:real;
begin
writeln('Введіть значення а');
read(a);
writeln('Введіть значення b');
read(b);
writeln('Введіть значення С');
read(c);
writeln('Фаренгейт Цельсій');
for a:=a to b do begin
f:=1.8*c+32;
writeln(f:4:2,' ',c:4:2);
c:=c+h;
end;
readln;
end.