Рустам
4 год назад
РЕБЯТА, УМОЛЯЮ Пожалуйста посчитайте ПОЖАЛУЙСТА У МЕНЯ ОСТАЛОСЬ 20 МИНУТ!!! СДЕЛАЙТЕ ПОЖАЛУЙСТА КАК МОЖНО БЫСТРЕЕ!!! 1. Ниже приведена программа:var s,k: integer;beginreadln(s);readln(t);if (s < 1) and (t < 2)thenwriteln ('YES')elsewriteln ('NO')end.Было выведено 9 запусков программы, при которых в качестве значений переменных вводились следующие пары чисел (s, t):(3, 5); (4, 3); (4, −5); (0, 7); (0, −2); (−2, 1); (−2, 5); (−2, −4); (1, 2).Как узнать сколько было запусков, при которых программа напечатала «NO»? В качестве решения выпишите все пары запусков и напротив каждого укажите вывод: YES или NO. В ответе укажите количество. 2. Составьте программу, выводящую значение вещественной переменной x, равной значению выражения 2(a+b)/a^2,где a и b – целочисленные переменные, их значения вводятся с клавиатуры.3. Целое положительное число вводится с клавиатуры. Нужно проверить является ли оно четным.4. Напишите программу, которая вычисляет сумму n-первых целых положительных чисел S = 1 + 2 + 3 + … + n. Количество суммируемых чисел n должно вводиться пользователем во время работы программы.
ОТВЕТЫ
Franke Manuela
Oct 24, 2020
(4;3) no
(4;-5) no
(0, 7); no
(0, −2);yes
(−2, 1); yes
(−2, 5); no
(−2, −4); yes
(1, 2). no
2) var a,b: integer;
x: real;
begin
readln(a,b);
x:=2*(a+b)/(a*a);
writeln('x=',x)
end.
3)var x: integer;
begin
readln(x);
if (x mod 2=0) then writeln('четное') else writeln('нечетное')
end.
4) var s,n,a: integer;
begin
readln(n);
s := 0;
a:=0;
while a<n do begin a:=a+1; s:=s+a; end;
writeln (s);
end.
804
Смежные вопросы:
