Написать программу в pascal по циклам: ежедневно ученик делает в диктанте разное кол-во ошибок.за сколько дней кол-во ошибок достигнет числа q? (написать программу с циклом while)
djdkdksDkskd
1
16.06.2019 20:30
1
Другие вопросы по теме Информатика
ammmisha2006
14.12.2020 15:44
sofiyasan7
14.12.2020 15:43
Валериевич
14.12.2020 15:43
punipunipoemi
14.12.2020 15:39
Obsharovak
14.12.2020 15:38
slava02555
14.12.2020 15:38
semyanivskyilly
14.12.2020 15:38
Halula
14.12.2020 15:35
Windows95
14.12.2020 15:33
Популярные вопросы
- С. Есенин. «Зима» примеры, пояснения, уточнения для понимания основной мысли...
3 - Listen to Melissa s and ilya s question and check if you were right answer their...
2 - Определите, что обозначено в легенде к карте цифрами. В случае затруднений используйте...
3 - 2 вариант. сделайте 1,2,3,4,5,6....
3 - Из точки М к плоскости α проведены две наклонные, длины которых 18см и 2√53...
1 - Основание KL равнобедренного треугольника KLP лежит в плоскости α. Найдитерасстояние...
2 - Докажите,что естли соединить середины сторон равнобедренного треугольника то...
1 - Сколько существует различных наборов значений логических переменных x1, x2,...
2 - Суретті түзету дегеніміз неее❓таппадм,керек болып тұр ше...
3 - Быстрее Где было принято решение о созданииТуркестанской автономии, столицейкоторой...
3
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.