сервис вопросов и ответовВ чем ошибка? Найдите пожалуйста
5-9 класс|
|
Прикрепленные изображения
Dashashevreva
12 марта 2015 г., 19:21:00 (9 лет назад)
Firyuza85
12 марта 2015 г., 21:15:06 (9 лет назад)
Попробуй после then begin и перед else end;
Ответить
Другие вопросы из категории
Заполнить двухмерный массив С(5,6) целыми случайными числами, значения которых находятся в интервале от -8 до +9, выведет на экран массив в виде таблицы,
найдёт сумму всех отрицательных элементов массива и выведет результат на экран
Читайте также
Исправьте ошибки, ПОЖАЛУЙСТА!!!
Кузнец подковал лошадь. В каждой подкове 6 гвоздей. Владельцу было предложено два вида оплаты:
1) заплатить за все гвозди 50 рублей.
2) За 1 гвоздь - 1 коп., 2 гвоздь - 2 коп., и т.д. каждый раз в два раза больше чем за предыдущий гвоздь.
Владелец предпочёл второй вариант. Во сколько раз больше он заплатил?
Короче, вот программа, но она не работает.
Ошибки исправьте, пожалуйста.
вывести на экран номер всех счастливых билетов и подсчитать сколько их? В чем ошибка?
var a,b,c,d,f,e,n:longint; k:real;begink:=0;for n:=000001 to 999999 do begin a:= n mod 10;b:= n div 10 mod 10;c:= n div 100 mod 10;d:= n div 1000 mod 10;f:= n div 10000 mod 10;e:= n div 100000 mod 10;if(a+b+c=d+f+e) then begin writeln(n);k:=k+1;end;end;end.
покупатель должен заплатить в кассу S рублей . У него есть купюры в 1,2,5,10,50,100,500 руб. Найти наименьшее кол-во , которым он может рассчитаться? Помогите пожалуйста!
найдите пожалуйста ошибку(система паскаль) задача: даны два числа. вывести больше
е из них.
program zadacha6;
var a,b: real;
begin
readln(a,b);
if a>b then writeln ( ' a bolshe ' ) else writeln ( ' a menshee ' );
end.
ПОМОГИТЕ В ЧЕМ ОШИБКА!!
program ZADACHA1;
var
a,b,c,d,d1,e:integer;
x,y,k,l:real;
begin
WRITELN('Цыбулак Максим');
READLN(a);
READLN(b);
c:=a+b;
e:=a*b;
d:=a-b;
k:=a/b;
d1:=b-a;
l:=b/a;
WRITELN('a+b=',c);
WRITELN('a-b=',d);
WRITELN('b-a=',d1);
WRITELN('a*b=',e);
WRITELN('a/b=',k);
WRITELN('b/a=',l);
m;=SQR(a);
n;=SQR(b);
o;=SQRT(a);
p;=SQRT(b);
WRITELN('квадрат числа',a,'=',m);
WRITELN('квадрат числа',b,'=',n);
WRITELN('корень числа',a,'=',o);
WRITELN('корень числа',b,'=',p);
end.
Вы находитесь на странице вопроса "В чем ошибка? Найдите пожалуйста", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.