Написать программу в Pascal по циклам:
10-11 класс
|
Ежедневно ученик делает в диктанте разное кол-во ошибок.За сколько дней кол-во ошибок достигнет числа q?(Написать программу с циклом while)
program gt;
var q,k,a,s:integer;
begin
writeln('Задайте q');
readln(q);
k:=-1;s:=0;
while q>s do
begin
k:=k+1;
read(a);
s:=s+a;
end;
writeln(k);
end.
Другие вопросы из категории
Болел почти месяц, а надо догонять одногруппников.
Очень срочно...
Читайте также
13.
Нужно написать программу на цикле с предусловием, на Паскале.
2.написать программу в паскале
f(x)=2(sin*sin)x+1
оказаться)
нужно написать программу на c++
Используя обращения 1) по индексу и 2) по указателю.
http://primat.org/index/0-128 вот сайт что бы написать программу.
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!