<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (max, min, k) := (-100000, 100000, 0);
ReadSeqIntegerWhile(t -> t <> 0)
.Foreach(t ->
begin
if t > max then max := t;
if t < min then min := t;
if t mod 10 = 7 then Inc(k)
end);
Writeln('min=', min, ', max=', max, ', искомое кол-во: ', k)
end.
Расписание можно составить двумя способами:
1) первый урок — математика, второй — литература, третий —
история;
2) первый урок — история, второй — математика, третий —
литература.
Var a:real;
begin
write ('Введите стоимость 1 пирожка: ');
readln (a);
writeln ('Стоимость 2 пирожков = ',a*2);
writeln ('Стоимость 3 пирожков = ',a*3);
writeln ('Стоимость 4 пирожков = ',a*4);
writeln ('Стоимость 5 пирожков = ',a*5);
writeln ('Стоимость 6 пирожков = ',a*6);
end.
Если нужна программа с n кол-во пирожков, где n вводится с клавиатуры, то вот:
var a,n:real;
begin
write ('Введите стоимость 1 пирожка: ');
readln (a);
write ('Введите кол-во пирожков: ');
readln (n);
writeln ('Стоимость ',n,' пирожков = ',a*n);
end.
Язык С++
#include <iostream>
int main() {
double a, b, c, d;
std::cin >> a >> b >> c >> d;
if (a > b && a > c && a > d) {
std::cout << 1;
}
else if (b > a && b > c && c > d) {
std::cout << 2;
}
else if (c > a && c > b && c > d) {
std::cout << 3;
}
else {
std::cout << 4;
}
return 0;
}
Без жанра игры , игра не имеет смысла . Со жанром игра имеет смысл её проходит
Жанр должна быть в игре
