РЕБЯТА, УМОЛЯЮ ПОМОГИТЕ ПОЖАЛУЙСТА У МЕНЯ ОСТАЛОСЬ 20 МИНУТ!!! СДЕЛАЙТЕ ПОЖАЛУЙСТА КАК МОЖНО БЫСТРЕЕ!!!
1. Ниже приведена программа:
var s,k: integer;
begin
readln(s);
readln(t);
if (s < 1) and (t < 2)
then
writeln ('YES')
else
writeln ('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 должно вводиться пользователем во время работы программы.
Ответы
Ответ дал:
0
1) (3;5) no
(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.
Вас заинтересует
3 месяца назад
3 месяца назад
4 месяца назад
4 месяца назад
1 год назад
1 год назад
7 лет назад