Program n_1;var a,P:integer;beginwriteln('Введите значение стороны квадрата');readln(P);P:=4*a;writeln('P');end.
5-9 класс
|
я написала программу вот эту и выдает ошибку :
ошибка времени выполнения: входная строка имела неверный формат, что это значит и как это исправить помогите пожалуйста очень срочно нужно
program n_1;
var a,P:integer;
begin
writeln('Введите значение стороны квадрата');
readln(a);
P:=4*a;
writeln(P);
end.
ну логика должна быть , readln это оператор ввода , в твоей программе ты вводишь периметр а потом его же и считаешь , понимаешь ? - бред , к томуже кавычки ' ' в выводе означают текст а не вывод значения, поэтому если выводишь значение то надо без кавычек
Другие вопросы из категории
m:=a;
if b>m then m:=b;
if c>m then m:=c;
Читайте также
a<5 do
writeln(a);
a:=a+1;
End.
2)Program z2;
var a,s:integer;
begin
a:=1; s:=0;
while a<10 do begin
s:=s+a/2;
end;
writeln(s);
end.
integer;
begin
m:= 0
for i: = 1 to 6 do
m: = m-6
writeln (m)
end.
2) program a6
var i, m: integer;
begin
m:= 0;
for i: = 3 to 7 do
m: = m-6+i;
writeln (m)
end.
program z7;
var X: integer;
begin
writeln('введите Х');
if X >100 then X:=X-20;
writeln('X=', X);
end.
2.
x:=2;
у:=5;
х:=у;
у:=х;
2. Какую задачу решает данная программа?
program primer
var a,b,c: integer;
begin
writeln("введите двухзначное число ");
readln(a);
b:=a div 10 ;
c:=a mod 10;
write(c*10+b);
end.
а)находит сумму цифр числа;
б)вычесляет целую часть и остаток от деления числа на 10 ;
в)меняет цифры числа местами
г)находит цифры числа, а на экран выводит само число
3. Среди предложенных выражения выбирете логические :
а) (x=3)or (x<>4)
б)2*x+5;
в)x mod 2=0;
г)x div 3
д) x+у=10
е) х+у
ж)(х+у>5)or(x-у>5)
з)(х>3)and (х<=10)
4. Составьте условие для условного оператора в программе , которая выводит на экран приветствие в зависимости от времени суток . Пусть утро с8 до 12 ч, день с12 до 17 ч , вечер с 17 до 23ч, ночь-всё остальное время.
program primer;
begin
writeln("Который час?");
readln(x);
if__________then writeln('Доброе утро!');if__________then writeln('Добрый день!');
if__________then writeln('Добрый вечер!');
if__________then writeln('Доброй ночи!");
if__________then writeln('Введите число выходит за рамки интервала [0,24]');
var i, k, m, g :integer;
begin
writeln('Введите количество цифр в последовательности (Не больше 100)');
repeat
readln(i);
until i<101;
writeln('Вводите числа (не превышающие 300)');
for k:= 1 to i do begin
repeat
readln(m);
until m<301;
if (m mod 3=0) then g:=g+m;
end;
writeln(g);
end.