Program one;var a,b,c,d,e,g:integer;beginwriteln('Введите цену помидор за один килограмм (в рублях)');readln(a);writeln('Введите вес помидор');readln(b);writeln('Стоимость покупки: ',a*b,' руб');writeln('Введите цену огурцов за один килограмм (в рублях)');readln(c);writeln('Введите вес огурцов');readln(d);writeln('Стоимость покупки: ',c*d,' руб');writeln('Введите цену яблок за один килограмм (в рублях)');readln(e);writeln('Введите вес яблок');readln(g);writeln('Стоимость покупки: ',e*g,' руб');end.
При копировании кода на сайт из IDE автоматически убираются пробелы. Ниже будет скриншот того, как должен будет выглядеть код.
program zn; begin var a: array [1..16] of integer; var i, c: integer; c:=0; for i:=1 to 16 do begin a[i]:=random(20)-12; writeln(a[i],' '); if a[i]=0 then c:=c+1; if a[i]<0 then c:=c+1; end; writeln('Кол-во элементов раных 0 или меньше 0: ', c); end.
1) var a,b,s :real;
begin
readln(a,b);
s:=a+b;
write(s);
end.
2)несовсем понятно
var a,n,i:integer;
begin
readln(n);
for i:=1 to n do
begin
a:=3*i;
write(a);
end; end.
Ну тут же схема написана.
1-2-3-4-1
Берём первую точку с координатами (3;6) соединяем её со второй точкой с координатами (6;3) теперь её соединяем с 3ей с координатами (15;3),её соединяем с 4ой с координатами (18;6) и и неё возвращаемся к первой точке с координатами (3;6)
Теперь следующий блок
5-6-7-8-9-10-11
Берём 5ую точку с координатами (10;6) соединяем её со 6ой точкой с
координатами (10;16) теперь её соединяем с 7ей с координатами (13;16),её
соединяем с 8ой с координатами (12;15) ,её соединяем с точкой 9-ой с координатами (13;14) ,её с точкой 10-ой с координатами (10;14),далее соединяем 10-ую точку с 11ой с координатами (16;6)
вот и всё
или тебе картинку прислать соединённого??
Решение:
3.4)
6.1)
Остальное сам(а).