13.01.2010, 16:00 | #1 (permalink) |
Новичок
Регистрация: 13.01.2010
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите начинающему программисту
вот они 1)Студент купил A тетрадей по Sa рублей и B обложек по Sb рублей. Подсчитать стоимость покупки и выдать чек. 2)Заданы три числа: X,Y,Z. Найти минимальное и макимальное. 3)Из N введенных челых чисел найти минимальное из положительных. 4)Вводится одномерный массив из 20 элементов, заполняемый случайными целыми числами в диапазоне {-30 - +30}. Каждый третий элемент, если он отрицательный, возвести в квадрат. |
13.01.2010, 16:00 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Вам не нужно тратить время на поиск аналогичных тем, вот они Помогите начинающему растолковать схему Кто поможет начинающему? Помогите начинающему программисту Подскажите начинающему 3D-моделисту Нужен совет начинающему паятелю и ваятелю Дайте, пожалуйста, совет начинающему |
13.01.2010, 17:38 | #2 (permalink) |
Member
Регистрация: 15.02.2009
Сообщений: 695
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 523
|
Задача 1
Код:
var a,b,sa,sb:byte;s:integer; begin read(a,sa); read(b,sb); s:=a*sa+sb*b; writeln(s); end. Код:
var x,y,z,max,min:integer; begin read(x,y,z); if x>y then if x>z then max:=x; if y>x then if y>z then max:=y; if z>x then if z>x then max:=z; if x<y then if x<z then min:=x; if y<x then if y<z then min:=y; if z<x then if z<x then min:=z; writeln('min',min); writeln('max',max); end. Код:
var min,i,n,s:byte; begin n:=5; min:=255; for i:=1 to n do begin read(s); if (s>0)and(s<min) then min:=s; end; writeln(min); end. Код:
var a:array[1..20] of integer;i:byte; begin randomize; for i:=1 to 20 do a[i]:=random(61)-30; i:=1; repeat if a[i]>0 then a[i]:=sqr(a[i]); i:=i+2; until i>=20; for i:=1 to 20 do write(a[i]:5); end. Последний раз редактировалось DDS; 13.01.2010 в 17:42 |
13.01.2010, 17:44 | #3 (permalink) | |
Новичок
Регистрация: 13.01.2010
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
DDS ты крут Спс огромное и удачи.
Вот уже чет неправильно сделал и незнаю в чем ошибка в первой задаче Цитата:
Последний раз редактировалось Francio; 13.01.2010 в 18:53 |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|