Язык Паскаль!
5-9 класс
|
1)Вводить с клавиатуры числа, пока не будут введен 0. Найти количество введенных чисел.
var c, a: integer;
begin
c := 1;
while (c <> 0) do
begin
readln(c);
inc(a);
end;
writeln(a - 1);
end.
А во второй разве может сумма одних и тех же чисел (пусть даже удвоенная, утроенная и т.д.) внезапно стать нулём? О_О
1) program project1;
var a:char;
s:integer;
begin
s:=0;
repeat
writeln('Введите символ');
readln(a);
case a of
'1','2','3','4','5','6','7','8','9','0': s:=s+1;
end;
until a='0';
writeln('введено s цифр');
readln;
end.
2)
Другие вопросы из категории
For x:=2 to 7do write (' * ');
For x:=3 to 3do write (' * ');
For x:=5 to 2do write (' * ');
For x:=5downto 5do write (' * ');
For x:=10 downto 4do write (' * ');
For x:=1 downto 4do write (' * ');
Читайте также
вычисления: а) y=x^10 б) y=x^15. Постараться использовать минимальное количество дополнительных переменных. 2) Дана сторона равностороннего треугольника. Найти площадь этого треугольника, его высоты, радиусы вписанной и описанной окружностей. Программу записать на языке Паскаль. 3) Дана величина А, выражающая объём информации в байтах. Перевести А в более крупные единицы измерения информации. Программу записать на языке Паскаль
19(16,3+7,7).а)19(16.3+7.7),в)19*(16.3+7.7).д)19(16,3+7.7).с)19*(16.3+7.7).2)Найдите правильную на языке паскаль записы выраженияа)34.5+24.5/15у в)(34.5+24.5)/15у с)(34.5+24.5)15*у.д)(34.5+24.5)/(15*у).3)Вычислите длину окружности и площадь круга одного и того же заданного радиуса R.4)Даны два числа.Найдите среднее арифметическое кубов этих чисел и среденее геометрическое модулей этих чисел.Два последних номера там нужно написать программу,программу присылать на листочке
превышающих заданного натурального числа N?
Вообще с Паскалем у меня полный завал! Если знаете как, то напишите! Желательно с объяснениями, буду благодарна!
Вариант №2
Какие значения чисел:
0.85Е2, -5.7Е-3, 0.1Е4?
Пусть а=245, b=-435, c=35.126. Что будет выведено на экран после выполнения следующих команд:
writeln (‘a’, b, ‘c’); write (‘c=’,c:8:1);
write (‘b= ‘, b:6); writeln ((a+c):9:3, b:4)?
Запишите по правилам языка Паскаль такие выражения:
a)
b)
Вычислить значения выражений:
Round(frac(6.9));
20 mod 6 * 3;
sqrt(trunc(0.5)).
Записать выражения в общепринятой форме:
(-3ab+sqr(b-4*a*c))/sqrt(2*a);
(sqrt(abs(a-b))*sqr(a+b).
Если у – вещественная переменная, а х – целая, то какие из следующих операторов присваивания правильные, а какие нет и почему?
a) y:= y * 2; в) х:= х mod 3 + х*cos(0);
б) x:=trunc(y); г) x:= y+1.
Дан фрагмент программы, который решает задачу поиска номера последней минимальной цифры в записи десятичного целого числа (считается, что цифры в числе пронумерованы справа налево) и выводит ее на экран. Определите, какой оператор необходимо вставить вместо троеточия ( . . . ), чтобы правильный результат выдавался для любого целого числа N. Все используемые переменные имеют целый тип данных. Ответ записывайте без пробелов.
на языке Паскаль
readln(N);
MC:=9; I:=0; K:=1; N:=abs(N);
while N< >0 do
begin
С:=N mod 10; N:=N div 10;
I:=I+1;
if ... then
begin
MC:=C; K:=I;
end;
end;
writeln(K); .
10 минут осталось, подалуйста.